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This  program  of  instruction  and  various  instructional 
materials  for  a  fsecondary-postsecondary  level  course  for 
programmer/analysts  is  one  of  a  number  of  military-developed 
curriculum  packages  selected  for  adaptation  to  vocational  instruction 
and  curriculum  development  in  a  civilian  setting.  The  eight-week, 
three-section  course  is  designed  to  provide  the  skill  to  program 
electronic  computers  structured  in  COBOL  and  to  code  job  streams 
using  IBM^r  DOS,  JCL,  and  utility  program.:^.  The  program  of  instruction 
suggests  a  time  sched-ule  aitd  gives  the  learning  objective  and 
reference Cs)   for  each  topic.    Section  1,  Data  Representation^  consists 
cf  a  programmed  text  covering  the  binary,  octal,  and  lexadecimal 
systems.  Section  2,  Basic  COBOL  Programming,  contains  a  text  and 
problem  exercises  with  some  answers*  Topic  areas  include  processing 
and  updating  a  sequential  file,  producing  an  edited  report  and  a 
report  with  calculations,  processing  external  and  internal  tables, 
and  debugging  syntax  errors.  Section 
text  and  programmed  text-  It  focuses 
organization  and  operation.  Specific 
Streams,  DOS  librarian  Programs,  and 
(TLB) 


3,  Operating  Systems,  includes  a 
on  disk  operating  systems  (DOS) 
topics  include  coding  DOS 
DOS  Otilities  and  Sorts. 
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This  military  tedmical  training  courae  has  been  aeletcted  and  adapted  by 
The  Center  f or  rocatiotial  Education  for  "Trial  Implementation  of  a  Model  System 
to  Provide  MHiLkry  Curricultm  Materials  for  Use  in  Vocational  and  Technical 
Education^"  a  project  sponsored  by  the  Bureau  of  Occupational  and  Adult  Education, 
U.S.  Department  of  Health,  Education »  and  Welfare. 


MILITARY  CURRICULUM  MATERIALS 


The  inilitari^-developed  curriculum  mterials  in  this  course 
package  were  selected  by  the  National  Center  for  Research  in 
Vocational  Education  Military  Curriculm  Project  for  dissem- 
ination to  the  six  aregional  Curriculum  Coordination  Centers  and 
other  instructional  materials  agencies.    The  purpose  of 
dLsseininating  tliese  courses  was  to  make  curriculum  materials 
davelc^d  by  the  military  more  accessible  to  vocatd.onal 
educators  in  the  civilian  setting. 

The  course  materials  were  acquired,  evaluated  by  project 
staff  and  practitioners  in  the  field,  and  prepared  for 
dissemination*    Materials  which  were  specific  to  the  idlitary 
were  deleted,  copyrighted  materials  were  either  anitted  or  appro- 
val for  their  use  was  obtained.    These  course  packages  contain 
curriculum  resource  materials  which  can  be  adapted  to  support 
vocational  instruction  and  curriculum  development. 


The  National  Center 
Mission  Statement 


The  National  Center  for  Research  in 
Vocational  Education's  mission  is  to  increase 
the  ability  of  diverse  agencies,  institutions, 
and  organizations  to  solve  educational  prob- 
lems relating  to  individual  career  planning, 
preparation,  and  progression,  The  National 
Center  fulfills  its  mission  by: 

•  Generating  knowledge  through  research 

•  Developing  educational  programs  and 
products 

•  Evaluating  individual  program  needs 
and  outcomes 


•  Installing  educational  programs  and 
products 


•  Operating  information  systems  and 
services 


*  Conducting  leadership  development  and 
training  programs 

FOR  FURTHER  INFORMATION  ABOUT 

Military  Curriculum  Materials 
WRITE  OR  CALL 

Program  Information  Office 

The  National  Center  for  Research  in  Vocational 

Education 
Tfie  Ohio  State  University 
1960  Kenny  Road,  Columbus,  Ohio  43210 
Telephone:  614/486-3655  or  Toll  Free  800/ 
}^    848-4815  within  the  continental  U.S. 

(except  Ohio) 


Military 

Curriculum  Materials 
Dissemination  Is . . . 

.".        .  .    .  I 

i  .         ...  1 


Wliat  Materials 
Are  Available? 


How  Can  These 
Materials  Be  Obtained? 


an  activity  to  increase  the  accessibility  of 
military-developed  curriculum  materials  to 
vocational  and  technical  educators. 

This  project,  funded  by  the  U.S.  Office  of 
Education,  includes  the  identification  and 
acquisition  of  curriculum  materials  in  print 
form  from  the  Coast  Guard,  Air  Force, 
Army,  Marine  Corps  and  Navy. 

Access  to  military  curriculum  materials  is 
provided  through  a  "Joint  Memorandum  of 
UndeRtanding"  between  the  LI.S.  Office  of 
Education  and  the  Department  of  Defense. 

The  acquired  materials  are  reviewed  by  staff 
and  subject  matter  specialists,  and  courses 
deemed  applicable  to  vocational  and  tech- 
nical education  are  selected  for  dissemination. 

The  National  Center  for  Research  in 
Vocational  Education  is  the  U.S.  Office  of 
Education's  designated  representative  to 
acquire  the  materials  and  conduct  the  project 
activities. 

Project  Stafri 

Wesley  E.  Budke,  Ph.D.,  Director 
National  Center  Clearinghouse 

Shirley  A.  Chase,  Ph.D. 
Project  Director 
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One  hundred  twenty  courses  on  microfiche 
(thirteen  in  paper  form)  and  descriptions  of 
each  have  been  provided  to  the  vocational 
Curriculum  Coordination  Centers  and  other 
instructional  materials  agencies  for  dissemi- 
nation. ■ 

Course  materials  include  programmed 
instruction,  curriculum  outlines,  instructor 
guides,  student  worl<bool<s  and  technical " 
manuals. 

The  120  courses  represent  the  following 
sixteen  vocational  subject  areas: 


Agriculture 
Aviation 
Building  & 

Construction 

Trades 
Clerical 

Occupations 
Communications 
Drafting 
Electronics 
Engine  Mechanics 


Food  Service 
Health  , 
Heatings  Air 

Conditioning 
Machine  Shop 
Management  & 

Supervision 
Meteorology  & 

Navigation 
Photography 
Public  Service 


The  number  of  courses  and  the  subject  areas 
represented  will  expand  as  additional  mate- 
rials with  application  to  vocational  and 
technical  education  are  identified  and  selected 
for  dissemination. 


Contact  the  Curriculum  Coordination  Center 
in  your  region  for  information  on  obtaining 
materials  (e.g.,  availability  and  cost!.  They 
will  respond  to  your  request  directly  or  refer 
you  to  an  instructional  materials  agency 
closer  to  you. 
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Course  Description: 

This  course  is  designed  to  provide  the  skill  to  program  electronic  computers  structured 
in  Cobol  and  to  code  jobstreams  using  IBM,  DOS,  JCL,  and  utility  programs.     The  course 
covers  8  weeks  of  instruction. 

Data  Representation  consists  of  a  programmed  text  covering  the  binary,  octal  and 
lexadecimal  number  systems. 

Basic  Cobol  Programming  section  contains  a  text  and  problem  exercises  with  some  having 
answers.     Topic  areas  include  processing  and  updating  a  sequential  file;   producing  an 
edited  report  and  a  report  with  calculations;  processing  external  and  internal  tables; 
debugging  syntax  errors. 

The  Operating  Systems  segment  focuses  on  disk  operating  systems  organization  and 
operation.  Specific  topics  of  ceding  DOS  Jobstreams,  DOS  Librarian  Programs,  DOS 
Utilities  and  Sorts  are  included. 
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Erogrammer/Axialyst  Course 

TABLE  OF  COMTKNTS 

Program  of  Instruction 
Data  Bepresentation  Programmed  Text 
Basic  Cdbol  Programming 
Operating  Systems 


Classroom  Course  4—4 

Page 
1 

20 

11*8 
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Annex  F  -  Update  a  Sequential  Master  File  Using  a  Sequential  Transaction 


Terminal  learning  Objective:    Given  program  specifications,  write  a  cmm 

532-74F-1242  Establish  Read  Switrhpc  jype 

Hours  -  o 

<  2C 

go:e?n"?hfi?^:is"io  ^I^K^^le^'"" 
Ref:    Shelley/Cashman  Structured  COBOL 

532-74F~1243  Update  Master  FIIp  -p^ 

Hours  -  OQ 

7C,  22PE2 

Ref:    Shelley/Cashmao  Structured  COBOL 

532-74F-1244  COBOL  V  Review  and  Exam  Type 

Hours  -  Q 

8  4C,  4E 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  F  Total  Hours  Allotted:  39 


Annex  E  -  Process  External  and* Internal  Tables  1n  COBOL 

iTutln^l      h1-?3  S'^Jf  Given  program  specifications  code  COBOL 

fulrtl  rhe'co;'i:?ed1a'b;e?  ''''''''      ''''''''  '^'^  -^^^  ^"^"^ 
532-74F-1238                  Establish  Internal  Table  jype 
"^''^  -                                        H  2C.  12PE2 

mlnlVtc  chinnVltL  ^  ""orth. conversion  U\>le,  write  the  COBOL  state.  . 

ments  to  change  the  numeric  month  to  the  month's  name. 

Ref:    Shelley/Cashman  Structured  COBOL 

532-74F-1239  External  Table  Handling  Type 

-  14       •  5.5C.  8.5PE2 

hnfVU'S^t^hif  *^!;^'    Given  program  specifications,  code  COBOL  routines  to 
build  a  table  and  search  the  table  for  match  or  no  match  condition. 

Ref:    Shelley/Cashman  Structured  COBOL 

532-74F-1240  COBOL  IV  Exam  and  Review/Critique  Type 

^  6  2C.  4E 

Learning  Objectives:  N/A 

Ref:  N/A 


Annex  E  Total  Hours  Allotted;  34 

532-74F-1234  COBOL  III  Review  and  Exam  Type 

Hours  -  8  .         4C.  4E 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  D  Total  Hours  Allotted:  37 


ERIC 


15 

15 


Annex  D  -  Produce  a  Report  with  Calculations  and  Minor  Control  Breaks  in 
COBOL 

Terminal  Learning  Objective:    Given  program  specifications'  code  a  COBOL 
program  that  will  perform  arithmetic  calculations  and  test  for  changes  in 
input  data  to  produce  a  report  xith  group  totals  at  a  control  break. 

532-74F-1230  Test  for  Control  Breaks  Type 

Hours  -  12.5  2.5C.  10PE2 

Learn". .J  uojectlve:    Given  Input  control  flelos,  code  routines  to  process 
changes  in  the  fields  that  will  result  In  recognizing  the  change  and 
processing  each  group  of  like  items  as  .Individual  entitles. 

Ref:    Shelley/Cashman  Structured  COBOL 

532-74F-1232  Advanced  Condition  Tests  Type 

Hours  -  2  2C 

Learning  Objective:  Given  specifications,  code  routines  that  use  condition 
names  and  nested  IF  statements  syntactically  and  logically  correct. 

Ref:    Shell ey/Cashman  Structured  COBOL 

532-74F-1232  Arithmetic  Verbs  Type 

Hours  -  6  1.5.  4.5PE2 

Learning  Objective:    Given  specifications,  code  COBOL  arithmetic  verbs  in 
conjunction  with  condition  statements  to  produce  minor  totals  at  control 
breaks. 

Ref:    Shelley/Cashman  Structured  COBOL 

532-74F-1233  Page  Headers  &  Trailers  Type 

Hours  -  8.5  2.5C,  6PE2 

Learning  Objective:    Given  report  requirements,  code  COBOL  routines  that 
will  result  in  multiple  headings  with  the  current  data  and  sequential  page 
numbers  on  output  reports. 

Ref:    Shelley/Cashman  Structured  COBOL 


532-74F-1224  COBOL  II  Review  &  Exi__ 

?C.  4E 


 tam  Type 

Hours  - 


Learning  Objective:  N/A 
Ref:  N/A 


Annex .C  Total  Hours  Allotted:  39 
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Annex  c  -  Produce  Edited  Report  with  Minor  Control  Breaks  in  COBOL 
Terminal  Learning  Objective:    Given  program  specifications,  code  a  COBOL 

?o?a^r.nS         in'^T^lfJ^^P;!**  P^^^'^^n'  condition  tests.- accumulate 
totals  and  use  report  editing  to  produce  a  report  with  a  heading  and  total 

532-74F-1220  Code  Spec iaV  Names  Paragraph  Type 

Hours  -  .5 

pIrIg"ra7h°c^o?r'eclEi;.  ^P"^^^  "^"'^s 

Ref:  N/A 

532-74F-1221  Establishino  a  Heading  i  Ihp  ;.nH  jype 

Accumulations  ln  the  Data  Division 
Hours  -  1  c 

1.5C 

Learning  Objective:  Given  program  specifications  code  the  Data  nii/icinn 
entries  to  establish  a  heading  line  and  accumulators.  Division 

Ref:    Shelley/Cashman  Structured  COBOL 

532-74F-1222  Code  ADD  and  IF  Verbs  Logically  Tvoe 

Within  the  Procedure  Division 

Hours  -  Id  . 

4C,  10PE2 

to'n^in?  ^iTinl"^''  Siven  program  specifications,  code  the  COBOL  routines 
to  print  a  heading,  accumulate  totals  and  to  conditional  tests.  "^""^^"^^ 

Ref:    Shelley/Cashman  Structured  COBOL 

532-74F-1223  Editing  Data  and  Formatting  jvpe 

A  total  Line  * 

Hours  -  17 

y  5C,  12PE2 

Ref:    Shelley/Cashman  Structured  COBOL 
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532-74F-1214  Code  Simple  COBOL  Program  Type 

Hours  -  10  IC.  9PE2 

Learning  Objective:  Given  program  specifications,  code  a  program  to  read  a 
sequential  file,  move  data  and  print  9  siiriple  report, 

Ref:    Sbelly/Cashman  Structured  COBOL 

532-74F-1215  COBOL  I  Exam  &  Review/Critique  Type 

Hours  -  7  3^,^  4^ 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  B  Total  Hours  Allotted:  37 
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Annex  B  -  Process  Sequential-  File  in  COBOL 

532-74F-1210  Code  COBOL  Identification  Division  T;^ 

-  1*5  IC.  .5PE2 

Learning  Objective:  Given  program  specifications,  code  a  COBOL  Identifica- 
tion Division  that  is  syntactically  correct  and  that  meets  specifications. 

Ref:    Shelley /Cashman  Structured  COBOL 

532- :4F-1211  Code  COBOL  Environment  Division  Type 

"^^''^  -   .  1.5  IC,  .5PE2 

Learning  Objective:  Given  program  specifications,  code  a  COBOL  Environment 
Division  that  is  syntactically  correct  and  that  meets  specifications. 

Ref:    Shel ley/Cashman  Structured  COBOL 

532-74F-1212  Code  COBOL  Data  Division  Type 

Hours  -  8       .  4C.  4PE2 

Learning  Objective:  Given  program  specifications,  code  a  COBOL  Data  Divi- 
sion that  IS  syntactically  correct  and  that  contains  all  entries  necessary 
for  correct  program  operation. 

Ref:    Shelly/Cashman  Structured  COBOL 

532-74F-1213  Code  I/O  and  Movements  Verbs  Type 

Hours  -  9  9C 

Learning  Objective:    Given  program  specifications,  code  the  COBOL  verbs 
necessary  to  perform  sequential  I/O  operations  and  to  move  data  within 
memory. 

Ref:    Shelly/Cashman  Structured  COBOL 

532-74F-1205  Problem  Solving  Exam  &  Review  Type 

Hours  -  7  ,    3C,  4E 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  A  Total  Hours  Allotted:    41  g 

Er|c  •  13 
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SECTION  IV  -  ANNEXES 

Annex  A  -  Solve  ADP  Problems 

Terminal  Learning  Objectives:    Given  a  narrative  problem,  construct  a 
systems  flowchart,  structured  flowchart,  HIPO  and  IPO  that  will  represent  a 
solution  to  the  problem  in  structured  terms* 

531-74F-1201  Draw  a  Systems  Flowchart  Type 

Hours  -  1.5  ,5G.  1PE2 

Learning  Objective:  Given  the  inputs  and  outputs  to  a  program,  draw  a  chart 
that  will  use  the  proper  symbols  to  depict  the  flow  of  data  in  the  system. 

Ref:    Class  Notes 

531-  74F-1202  Draw  a  Hierarchy  Chart  Type 

Hours  -  5  3C,  2PE2 

Learning  Objective:    Given  program  specifications,  draw  a  hierarchy  chart 
that  correctly  reflects  the  logical  structure  of  a  program  that  will  result 
in  the  required  output. 

Ref:    Class  Notes,  Check  Problem 

532-  74F-12D3  Write  an  IPO  Chart  Type 

Hours  -  15,5  6C,  9.5PE2 

Learning  Objective:    Given  a  HIPO  and  program  specifications  correctly 
determine  the  inputs,  outputs  and  processing  required  to  meet  the  require- 
ments. 

Ref:    Class  Notes,  PE  1  through  PE  4 

532-74F-1204  Draw  a  Structured  Flowchart  Type 

Hours  -  12  4C,  8PE2 

Learning  Objective:    Given  program  specifications,  a  HIPO  and  an  IPO  draw 
a  structured  flowchart  that  represents  the  logic  flow  within  an  IPO, 

Ref:    Class  Notes,  PEl  through  PE4 
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A.  Course:    b32-74Fl,  Prog rammer /Analyst 

B.  Purpose:  To  provide  enlisted  personnel  with  the  ability  to  proeram 
electronic  computers  in  structured  cmnj  ■  f«  o«^»  j  u         ^  ^°  program 

TPT  „t.JiJ-„  »i.cuccurea  lobol,  to  code  job  streams  using  IBM  DOS 

C.  Prerequisites: 

GEO  ^;st"5!^?gTsc^So^^e^l^.''''^''''°^  ^^^^^^^      ^^^^  ^^-^^  greyer  on 
2.    standard  score  of  105  or  better  In  aptitude  area  ST  or  CL. 

compl^tiSi?^  ^^^^^^  ''^^^  remaining  after  course 

4.    No  security  clearance  required  for  this  course. 

clear;ncf  for'So?  Mf'''^'^  Requirements  Section,  requires  a  security 

0.    Scope:    Students  learn  ADP  topics  through  In-class  conference 
practical  exercises  In  COBOL.  JCL  and  utilities  and  s"lf-S  instruction. 

Length:  Peacetime  Mobilization 

9  weeks.  3  days  8  weeks,  3  days 

F.    Training  Location:    US  Army  Institute  of  Administration 

Fort  Benjamin  Harrison,  Indiana  46216 

G-    MOS  Feeder  pattern: 

Prerequisite  MOS        MOS  trained  in  this  course        Feeds  Following  MOS 

74F10  74F20.  74F30.  74F40» 

74Z50 

H.    Ammunition  Requirements:  None, 
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UNITED  STATES  ARMY  INSTITUTE  OF  ADMINISTRATION 
Fort  Benjamin  Harrison,  Indiana  46216 


PROGRAM  OF  INSTRUCTION 
pOR 

PROGRAMMER/ANALYST  COURSE 
532-74F1 


Length:    Peacetime  -  9  weeks,  3  days 

Mobilization  -  8  weeks,  3  days 

Approved  by: 


121-012-1400-190-A 
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Annex  G  -  Data  Representation 

Terminal  Lea#.ng  Objective:    Given  the  decimal  binary  "and  hexaH*.r-fn,ni 
numbering  systems,  be  able  to  describe  the  VroJllll\^2XnT.lTons  of 
each  and  be  able  to  manipulate  the  numbers  within  each  number  system? 

531-74F-1245  •    Manipulate  Number  Systems  jypg 

Hours  -  2  ■  1^ 

*  IC,  1PE2 

hP^^nirf.^f^^''^^®-  several. problems  in  the  decimal,  binary,  and 

hexadecimal  number  systems,  perform  th?  Indicated  manipulations  for  each. 

Ref:    Data  Representation  Handout 

531-74F-1246  Exam  and  Review/Critique  jypQ 

Hours  -  2  2g 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  G  Total  Hours  Allotted:  4 


ERIC 
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Annex  H  -  Debug  COBOL  Syntax  Errors 

Ifwaj?^^^^^*'?^"^  Objective:    Given  a  COBOL  listing  with  three  different 
levels  of  snytax  errors,  determine  all  statements  in  error  and  correct  them. 

531-74F-1247  Determine  Erroneous  Statement  Type 

3  1.5C.  1.5PE2 

Learning  Objective:  Given  a  COBOL  diagnostic  and  source  listina  find  all 
language  syntax  errors  and  correct-them.  nstmg,  find  all 

Ref:    She! ley/C ashman  Structured  COBOL 

531-74F-1248  Exam  and  Review/Critique  jype 

Hours  -  1 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  H  Total  Hours  Allotted:  4 


9  " 
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Annex  I  -  Debug  DOS  Program  Abends 

Tenninal  Learning  Objective:    Given  a  COBOL  compile  listing  with  all  ; 
options,  a  linkedit  map  and  a  core  dump,  find  the  error  causing  the  program 
to  abend  and  correct  It,  &       r  o 

531-74F-1250  Code  a  Simple  ALC  Program  Type 

"^"'•^  -  9  6C.  2PE2 

trp?od3ce''f  cllendar?^^^"  In-class  notes,  code  and  execute  an  ALC  program 

Ref:    ALC  handout 

531-74F-1251  Correct  DOS  Abend  jype 

Hours  -  XO  3C.  7PE2 

Learning  Objective:    Given  compile  and  linkedit  listings,  and  a  core  dump, 
find  a  statement  in  error  and  correct  1t« 

Ref:    PE  handouts 

531-74F-1252  Exam  and  Review/Critique  Type 

Hours  -  *  4  2C,  2E 

Learning  Objectives:  N/A 
Ref:  N/A 

Annex  I  Total  Hours  Allotted:  22 
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Annex  J  -  Know  DOS  Organization  and'Operatlon 

JescHbl  thr?unct?^^'nf'^''-H                ^^^^^"^  Service  Manual, 

aescrioe  the  function  of  each  component  of  DOS  as  well  as  the  h<^n^»fit«:  nf 

operating  systems  and  the  effects  of  multiprogr^ing.  ' 

532-74F-1255  Operating  Systems  jype 

Hours  -  2  2C 

anradSan?a^pf  ^^'^^^^l^ss  reference  materials,  describe  the  purpose 
and  advantages  of  an  operating  system  naming  at  least  4  advantages. 

Ref:    OS  Handout.  System  Control  and  Service 

532-74F-1256  Multiprogramming  Concepts  Type 

Hours  -  2  2C 

hL'SrifailJit^li  t!?;JSgSj2lf  n.ltiprogr.™i„g 
Ref:    OS  Handout 

512-74F-1257  DOS  libraries  Type 

Hours  -  2  2C 

Ref:    OS  Handout 

System  Control  and  Service 
DOS  Job  Control.  Shel ly/Cashman 


Annex  J  Total  Hours  Allotted:  6 
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Annex  K  -  Code  DOS  Jobstream  .  ' 

Terminal  Learning  Objective:    Given  aii  /.i.  * 

specifications  a?d  Job  requ  reme^?s   cldV^nH  T^^^^""  material,  program 
execute  programs  in  the  DOS  oroOS-E  enJUnmlJj?'^'  ^°  ^'^^ 
532-74F 

Hours  - 


^^^d^W  Code  DOS  .  ^ 


1S»5  9,5C  7PE2 

programs  using  unit  record  and  i.t n it u  t/S^^^!*  ^^""^  ^"^/o""  execute 
syntax  errors^nd  musfSeet  SVfeqJlJ^eme^^^^^  "''^ 
Ref:    OS  Handout 

System  Control  &  Service 

DOS  Job  Control.  Shel ley/Cashman 

532-74F-126I  Code  DOS-E  ExtPnc^nnc  .  ^ 

Hours  -  -  c 

2.5C.  1PE2 

Ref:    Instruction  Notes 

532-74F-1262  Exam  and  Review/CritiguP 

Hours  -  c 

^  2C.  4E 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  K  Total  Hours  Allotted:  26 
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Annex  L  -  Code  DOS  Librarian  Programs 

IlrelHf  th^d'^^n??  O^Jf^J^ve:    Given  all  class  references,  code  the  job- 
streams  to  display  a  library  directory,  display  and/or  pinch  a  1 ibrarv  entrv 

svntac^t?aTirrn'^"'?"  2'  ""^  ''^  ^  llbrarlSs!  The  Sobs  t  ream  m^sfbe^ 
syntactically  correct  and  must  meet  stated  requirements. 

532-74F-1265  DOS  Library  Service  Routing*;  Type 

Hours  -  e  c 

?-5  3C.  2.5PE2 

y?R!)'"cSERV^'RSElO  ani/n"  nJlDS^'jfu'^^^^''^""^-^^^^  ^  jobstream  using 
requy^emenJs'metf''  '''"'^  ^'^^^^        «ith  all  stated 

Ref:    OS  Handout 

System  Control  &  Service 

DOS  Job  Control,  Shelley/Cashman 

.532-74F-1266  DOS  Library  Maintenance  Routines  Type 

"^"•'^  -  6.5  3.5C.  3PE2 

Learning  Objective:    Given  all  class  references,  code  a  jobstream  to 

?vntax'".r?^r^i^I  function  on  any  library.    The  jobstream  must  be  without 
syntax  errors  and  must  meet  stated  requirements. 

Ref:    System  Control  &  Service 

DOS  Job  Control,  Shelley/Cashman 


Annex  L  Total  Hours  Allotted:  12 
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Annex  M  -  Code  DOS  Utilities  and  Sorts 

Terminal  Learning  Objective:    Given  all  class  references  aijd  job  require- 
ments, code  a  jobstream  using  file  to  file  utilities  and  the  SORT  program 
The  jobstream  must  be  syntactically  correct  and  must  produce  output  that 
meets  stated  requirements. 

532-74F-1270  DOS  File  to  File  Utilities  Type 

"ou'^s  -  6  3C,  3PE2 

Learning  Objective:    Given  all  class  references  and  job  requirements*  cod 
a  jobstream  to  transfer  data  from  one  storage  media  to  another.  The  Job- 
stream  must  meet  requirements  and  be  syntactically  correct. 

Ref:    DOS  &  TOS  Utilities 
OS  Handout 

532-74F-1270  DOS  SORT/MERGE  Type 

Hours  -  9  3C,  6PE2 

Learning  Objective:    Given  all  class  references  and  job  requirements,  cod 
a  jobstream  to  sort  records  into  a  given  sequence.    The  jobstream  must 
result  in  sorted  output  and  must  be  syntactically  correct. 

Ref:    DOS  Tape  and  01 st  SORT/MERGE  Program 

532-74F-1271  CSC  Utilities  Type 

Hours  1  IC 

Learning  Objective:  Given  the  CSC  Utilities  Manual  index,  find  the  desir 
utility  within  3  minutes. 

Ref:    CSC  Utilities  Manual 

532-74F-1272  Utilities  Review  &  Exam  Type 

Hours  -  6  2C,  4E 

Learning  Objective:  N/A 
Ref:  N/A 
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Annex  M  Total  Hours  Allotted:  22 


23  o  - 
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Annex  N  -  Report  Systems  Problems  to  USACSC 

532-74F-1275  Complete  an  Incident  Repnrt  jype 

"""^  -  1.6  1.5PI 

Ref:    DAP  Interface  With  USACSC 

532-74F-1276  Complete  a  System  Change  Request  Type 

-  1-5  1.5PI 

^Sln^Sl^ff^^?^  a?l''?e"q2l?^5''Mlo'Jr'  ^'^'^'^  ' 

Ref:    DPA  Interface  With  USACSC 

532-74F-1277  CSC/DPA  Interface  Exam 

Hours  -  1        .  1£ 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  N  Total  Hours  Allotted:  4 
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Annex  0  -  Produce  Systems  Documentation 

Terminal  Learning  Objective:  Given  sample  DOO  documentation  standards  ar 
program  specifications,  compile  an  AOP  documentation  packet  in  the  proper 
format  and  with  all  required  information. 

532-74F-1280  Programmer's  Documentation  Type 

Hours  -  6  3PE2 

Learning  Objective:    Given  sample  DOD  standards  and  applicable  specifica- 
tions, compile  program  documentation  in  the  right  format  and  with  all 
required  information.  ' 

Ref:    DOO  Documentation  Standards 

532-74F-1281  Operations  Documentation  Type 

i 

Hours  -  5  3C,  2PE2 

Learning  Objective:    Given  sample  DOD  standards  and  applicable  specifica- 
tions, compile  operations  documentation  1n  the  right  format  and  with  all 
required  information. 

Ref:    DOD  Documentation  Standards 

532-74F-1282  Documentation  Review  and  Exam  Type 

Hours  -  4  .     2C,  2E 

Learning  Objective:  N/A 
Ref:  N/A 


Annex  0  Total  Hours  Allotted:  15 
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PART  I 
BINARY  NUMBER  SYSTEM 
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READ  THE  FOLLOWING  INSTRUCTIONS  CAREFULLY  BEFORE  YOU  START  THE  LESSON 

MATERIALS  REQUIRED: 

In  addition  to  the  booklet  you  should  have  a  pencil  and  some  paper, 
A  quite  environment  that  is  conducive  to  strong  concentraMon. 

PROCEDURES  THAT  SHOULD  BE  FOLLOWED: 

Read  the  frame  very  carefully. 

In  some  cases  the  frame  should  be  read  twice. 

Most  of  the  frames  require  a  response  on  the  part  of  the  student- 
Write  down  the  answer  that  you  feel  is  correct  before  you  turn 

the  page  to  the  answer. 
The  answer  will  always  be  found  at  the  top  of  the  next  page. 
If  your  answer  is  correct  continue  to  the  next  frame. 
If  your  answer  was  not  correct  return  to  the  frame  and  reread 

inserting  the  correct  answer  as  you  read. 

IF  A  FRAME  MAKES  NO  SENSE  AT  ALL  TO  YOU  RAISE  YOUR  HAND  AND  WAIT  FOR 
INSTRUCTOR. 


-1- 
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INTRODUCTION 


To  converse  with  someone  who  speaks  only  a  foreign  language  would  require 
one  of  us  to  learn  another  language  so  we  can  communicate.  Similarly, 
to  communicate  with  a  computer  system  it  is  necessary  to  learn  and  use 
it's  specific  language. 


OBJECTIVE 

This  Programmed  Instruction  Text  covers  the  Binary  Number  Sys 
completion  of  the  text,  you  will  be  able  to: 

1.  Convert  a  Binary  number  to  a  Decimal  number. 

2.  Convert  a  Decimal  number  to  a  Binary  number. 

3.  Convert  a  Binary  Coded  Decimal  to  a  Decimal  number. 

4.  Convert  a  Decimal  number  to  a  Binary  Coded  Decimal. 


5.     Perform  Binary  arithmetic  functions. 


cS3 


The  number  system  taught  in  grade  school  is  the  Decimal  Number  System. 
In  this  number  system  ten  symbols  are  used  to  represent  digits. 


What  are  the  ten  symbols  used  to  Indicate  digits  in  the  Decimal  Number  System? 


ERIC  -3- 


34 

ANS:     0,  1,  2,  3,  4,  5,  6,  7,  8,  and  9 

I  hope  you  have  not  forgotten  the  Decimal  Number  System. 


The  BASE  of  a  number  system  is  the  nximber  of  symbols  used  to  indicate  digits. 


Wliat  is  the  BASE  of  the  Decimal  NiJinber  System? 
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ANS.     Since  ten  symbols  are  used  to  represent  the  digits  0  through  9,  the 
BASE  of  the  Decimal  Number  System  is  TEN.  | 


The  positional  values  for  three  positional  columns  of  the  Decimal  Number  / 
System  are: 


100 

10 

1 

The  positional  values  of  any  number  system  are  determined  by  taking  the  BASE 
of  the  nxmber  system  and  raising  it  to  progressive  powers  substantially. 


Progressive 
Powers 


io2 

100 

IQ  1 

1 

1  1 

*Any  nximber  raised  to  the  zero  power  is  1. 


Indicate  the  positional  values  for  four  columns  of  the  Decimal  Number  System. 
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1000 

100 

10 

1 

or 


10^ 

10  = 

10^ 

0 

10 

rhe  Decimal  Number  25  represented  with  the  positional  value  of  columns- 


10 

1 

2 

5 

Indicate  the  positional  values  over  the  Decimal  Number  425. 


37 
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ANS. 

100        10     1  1 


=^7 


By  using  a  combination  of  positional  values  in  the  columns,  a  number  can  be 
represented.     To  determine  the  value  of  the  number  represented*  the  digit 
indicated  in  a  column  is  multiplied  by  the  positional  value  of  the  column; 
then,  the  values  of  the  digits  are  added.  For  example: 


The  Decimal  Number  425. 


100 


10 


5  X 


Pbsitional  values  of  columns 


1  = 


2  X  10  = 
\  X  100  = 


5 

20 
400 


425 


Indicate  how  the  value  of  Decimal  Number  742  is  determined, 


0 
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ANS. 


1000 


100 


10 


> 

2 

X 

1  = 

2 

> 

H 

X 

10  = 

t+0 

> 

7 

X 

100  = 

700 

7U2 


The  largest  number  that  can  be  indicated  in  one  column  of  any  number  system 
will  Jje  tne  BASE  of  the  number  system  minus.  1. 


What  is  the  largest  number  that  can  be  indicated  in  one  column  of  the  Decimal  . 
Number  System? 
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ANS.        9      BASE  of  Decimal  Numbering  System    =  10 
Minus  1  =  -  1 


or 


1000 

100 

10 

1 

g 

What  is  the  largest  number  that  can  be  represented  in  two  positional  columns? 


ERIC 
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ANS. 


99 


or 


10 


C 


The  electronic  circuitry  used  in  data  processing  systems  function  i  binary 
states*     This  tneans  that  the  circuitry  can  indicate  only  two  possible  states, 
either  an  "on"  or  "off"  condition.     This  characteristic  made  it  necessary  to 
develop  a  number  system  that  could  be  used  by  a  computer.*    This  number  system 
is  called  the  Binary  Number  System. 

In  this  number  system  only  the  symbols  0  and  1  are  used. 


What  Is  the  BASE  of  the  Binary  Number  System? 


4i 
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ANS: 


The  BASE  of  a  number  system  is  the  number  of  symbols  used  to  ^^^^^^^^ 
digits^  In  the  Binary  Number  System  only  two  symbols,  0  and  i,  are  useu. 


If  the  BASE  of  the  Binary  System  is  TWO,  the  positional  values  for  four 
columns  are: 


2  3 

2  2 

2  1 

2  ° 

or 


8 

2 

1 

What:  are  the  positional  values  for  seven  colums  of  the  Binary  Number  System? 


3^ 

AN'S: 


2  2 

o  ^ 

2  -L 

or 


(^11 
DH 

•31 

1  c 

±b 

o 
o 

f  1 

2 

1 

What  is  the  largest  digit  that  can  be  indicated  in  one  positional  column  in  the 
Binary  Number  System? 


ERIC 
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ANS:        1      BASE  of  Binary  Number  System        =  2 
Minus  1  =  ~  1 


As  in  any  number  system,  using  a  combina^:ion  of  positional  values  in  the  : 
columns  a  number  can  be  constructed  or  represented.  A  combination  of  I's; 
and  0*s  in  this  number  system  can  represent  a  decimal  number./ 


-13- 


3^- 


Merhod  of  converting  Binary  number  to  Decimal  number. 

Example  is  of  Binary  number  101  converted  to  a  Decimal  number. 

1.     Assign  positional  values  of  Binary  Number  System  abov^  the  Binar^/'  number, 


64 

32 

16 

8 

1 

2 

1 

1 

0 

1 

"1"  =  "on"  condition 
tiQif  -.  MQfpf  condition 


2.     Multiply  digit  indicated  in  each  column  by  its  positional  value, 


64 


32 


16 


8 


Positional  values 
of  columns 


1X1=1 


1  X  = 


3,     Add  positional  values  of  columns 


1X1=1 


1  X      =  4 


Fron  this  conversion  example  we  have  learned  that  the  Binary  number  ^01 
is  equivalent  to  the  Decimal  number  5.     Dots  under  the  nirlary  number  indicate 
positional  columns.     The  columns  are  represented  internally  in  a  computer  with 
a  bit  that  can  be  turned  "on"  or  "off".     So  the  dot  mav  also  represent  a  bit. 


Convert  the  binary  number  1000111  to  a  Decimal  numbar, 

•  00*    »  «• 
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ANS :  71 

61 

32 

16 

8 

n 

2 

1 

1 

0 

0 

□ 

1 

1 

1 

3S 


1X1  = 


>  1X2 
1  X  4 


1  X  61  = 


1 

2 

61 

71  (Decimal 
(Number) 


Convert  Dinarv  1010101  to  a  Decimal  Number . 
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ANS:  85 


6«t 

32 

16 

8 

14 

2 

1 

1 

0 

1 

0 

1 

0 

1 

1X1 
1X4 
1  X  16 
1  X  64 


1 

4 
16 
64 

85  (Decimal) 
,i  (NuTiber  ) 


Convert  Binary  0111001  to  a  Decimal  Number. 
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AMS:  57 


61+ 

32 

16 

8 

2 

1 

1 

1 

1 

0 

0 

1 

1X1 
1X8 
1  X  IS 
1  X  32 


1 
8 
16 
32 


57 


(  Decimal) 
(Number  ) 


TEST 

Convert  following  Binary  numbers  to  Decimal.  Each  dot  C . )  under  the  Binairy 
number  indicates  a  positional  column. 


BINARY 


DECIMAL 


a. 
b. 
c. 
d. 


101 

•  •  « 

10001 
1001 

•  •  •  • 

111001 


-17- 


43 


38 


Method  to  convert  Decimal  nuiriber  to  Binary  number. 

EXAMPLE:     Decimal  number  91  converted  to  a  Binary  number. 

1«     Assign  positional  values  of  the  number  system  the  Decimal  number  is 
to  be  converted  to.     The  highest  positional  value  must  be  larger  than  the 
Decimal  number  to  be  converted. 

Decimal  number 
to  be  converted 


91 


128 

64 

32 

16 

8 

2 

1 

2,     Indicate  in  the  column  the  number  of  times  the  positional  value  will 
go  into  the  Decimal  number.  "0"  indicates  positional  value  will  not  go 
into  Decimal  number.     Begin  with  highest  positional  value. 


91 


128 

6U 

32 

16 

8 

2 

1 

0 

1 

ERIC 
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3.  Multiply  the  positional  value  by  the  digit  indicated  in  the  colvmn; 
subtract  result  from  Decimal  number. 


128 

6U 

32 

16 

8 

4 

2 

1 

0 

1 

91 

61  <  

27  remainder 


(64  X  1) 


^,  Indicate  the  number  of  times  the  next  positional  value  will  go  into 
the  remainder. 


j  128 

64  I 

32  ] 

16  ^ 

8  |4 

1 

0 

1 

0 

1 

1 

0 

1 

1 

91 
64 
27 
16 


2l  <■ 


(54  X  1) 


(15  X  1) 


11 

8 

3 

2 

1 
1 

0 


(8X1) 


(2X1) 


(1X1) 


The  Decimal  number  91  is  equivalent  to  the  Binary  number  1011011, 


Convert  the  Decimal  number  14  to  a  Binary  number. 
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ANS :  OHIO 


Solution : 


16 

n 
\j 

4 

2 

1 

n 

1 

1 

1 

0 

__8  <,_LLlil 


_U     ^         X  1) 


_2  <  (2X1) 
0 


Convert  the  Decimal  number  72  to  a  Binary  number. 


-20-  Oj. 


AMS:  01001000 


Convert  the  Decimal  number  45  to  a  Binary  number, 
O  -21- 
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ANS:  0101101 


TEST 

Convert  following  Decimal  numbers  to  Binar"/. 

Decimal  3inar^/ 

a.  =  .... 

b.  15  =  '   

c.  26  =   

d.  63  =   
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BINARY  CODED  DECIMAL 


A  Binary  number  like  01000011011101100101  may  be  difficult  to  interoret 
because  of  the  long  string  of  I's  and  O's.     To  convert  this  Binary  number 
to  Decimal  would  involve  assigning  positional  values  ^to  20  positional 
columns,  then  adding  their  positional  values.     This  would  take  a  lot  of 
time  I     For  readability  purposes  and  to  save  time,  the  Binary  Coded  Decimal 
was  designed  to  easily  convert  a  Binary  number  to  a  Decimal  ntimber.  In 
Binary  Coded  Decimal  (BCD)  four  bits  are  used  to  indicate  one  Decimal 
number.     The  positional  values  of  these  four  bits  are  the  same  as  the 
first  four  bits  in  the  Binary  Number  System. 


V/hat  are  the  positional  values  of  the  four  bits  in  BCD? 


^4 

ANS :     1    8  1  »♦     2  1 


The  Decimal  number  5  represented  with  four  bits  in  Binary  Coded  Decimal  (BCD) 


8 

4 

2 

1 

0 

1 

0 

1 

thur        0  10  1 


The  Decimal  number  M-5  represented  in  BCD; 


a 

2 

1 

8 

1+ 

2 

1 

0 

1 

0 

0 

0 

1 

0 

1 

thus  ,     0100  0101 


In  BCD  only  the  digits  0  through  9  can  be  indicated  in  one  f^roup  of  four 
bits. 


Convert  the  Decimal  number  79  to  BCD. 
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55 


i 


ANS: 


0111  1001 


•  •  o  • 


0111 


1001 


J/ 


ERIC 


Convert  the  Decimal  number  U5  8  to  BCD. 
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DO 


ANSi  0100  0101  1000 


Convert  3CD    0010     0110     to  a  Decimal  number. 


-26- 
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ANS :  25 

0010  Olio 


2  6 


Convert  BCD    0111    0011    0100     1301  to  a  Decimal  numbe 


ANS:  73U9 

0111  0011      0100  1001 

•  •••  ••••  ••••  ••»• 


TEST 

1.     Convert  Binary  Coded  Decimal  (BCD)  to  Decimal, 


a. 


'BU21  8tl21  8421  100     10  1 

0011 


b.  0010  0010 

•  •••  •••• 

C.  0101  0100 

••«•  ••••  •••• 

d.                    0111  0110  1000 

•  ••••  •••• 

2.     Convert  Decimal  to  BCD. 


a.  7 

b.  15 

c.  7  5 

d.  t»      2  3 


100     10     1  8U21  8421  8421 


ERIC 
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BINARY  ADDITION 

Rules  applied  when  performing  Binary  addition: 

a,     0  +  0    =  0 

1+0    or  0  +  1  =1 

d.     1+1    =0  and  carry  1  to  next  colurnn  to  left 

d.     1+1+1  =  1  and  carry  1  to  next  column  to  left 

Addition  problem:  010 

+  Oil 


^1  carried 


010  ^  \ 

•^011  ^  ^ 

  same  as 

101  " 


Add; 


101 
+  101 
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50  ' 

ANS:  1010 

Solution:  ^101 
+  101 

1010 


Add:  001 
+  111 


-30- 


ANS: 


1000 


Add:  0110 
+  1100 


33,- 

ANS:  10010 


Add:  0110101 
+  1110100 


.32-     ^  O 


AKS: 


10101001 


TEST 

Perform  Binary  addition 


a.      101  b.  moo 

+  001  +  1001 


c.      1011  d.  OHIO 

+  1001  11011 


54 


BINARY  SUBTRACTION 

The  method  by  which  subtraction  is  performed  internally  in  a  computer  is 
Subtraction  by  complementation.     The  complement  of  a  number  is  the  amount 
that  must  be  added  to  a  certain  number  to  have  it  indicate  the  lar^^est  number 
that  can  be  indicated  in  one  positional  column.     In  Binary  the  complement  of 
1  is  0,  the  complement  of  0  is  1  and,  really,  all  we  are  doing  is  reversing 
the  binary  notation  of  the  subtrahend  (the  number  that  is  to  be  subtracted 
from  another). 
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65 

-3U- 


-5S 


Subtraction  problem: 


101 
-  Oil 


a.    Place'the  proper  sign  bit  before  each  binary  nuinber;  0  =  plus  (  +  ), 
1  =  minus  (-).     A  plus  sign  is  applied  to  minuend  (top  number)  when 
minuend  does  not  have  plus  or  minus  siijn. 


101    I      i  0    i  101 

-  Oil  f     '  1  i  oil 


SiOT  bits 


b.     Complement  subtrahend  and  add.     Do  not  complement  minuend  or  sign 
bits . 


'  0  '    101  \ 

I       1   7 

I  1  I    Oil    (Subtrahend)  ^ 

1      I   ^ 


0  '  101 

I 

II    100  . 


0  J  001 


Anything  to  left  of  sign  bit  is  dropped  or  truncated.  Thus 
1,  0  I  001  becomes  '  0  001. 

'      >  II 

c.     Add  1  to  result  just  'obtained. 

I 

0  ,  001 


0   '  010 


Sif^n  bit  is  0  or  +.     Thus  answer  is  +  2, 


Subtract : 


100 
-  010 
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5lo 

•  ANS: 


i  I 

'  0  1  010 

«  I 
I  I 


Solution: 


sign  bit 


100 
-  010 


I 


0  I  100 

1  I  101 


1 1 

1 

0  j  001 

=  lo' 

•  1 

001 

+  1 

1  1 

1  0  i 

1  1 

010 

or  +2 

Subtract:  1000 
-  0111 


67 


-36- 
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ANS: 


t  1 

I  0  i  0001 

I  I 

I  1 


57 


Subtract: 


10 110 

-  01101 


ERIC 
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58 


ANS:         »  tj  t  01001 


I  I 


TEST 


Subtract : 


a.    0111  b.  1000 

-  0101  -  0100 


.     1001  d.  10001 

-  0110  -  01010 
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DATA  REPRESENTATION 


PART  II 


OCTAL  NUMBER  SYSTEM 


READ  THE  FOLLOWING  INSTRUCTIONS  CAREFULLY  BS^ORC  YOU  START  THE  LESSON 

MATERIALS  REQUIRED; 

In  addition  to  the  booklet  you  should  have  a  pencil  and  some  paper, 
A  quiet  environment  that  is  conducive  to  strong  concentration. 


PROCEDURE  THAT  SHOULD  BE  FOLLOWED: 

Read  the  frame  very  carefully. 

In  sone  cases  the  frame  should  be  read  twice. 

Most  of  the  frames  require  a  response  on  the  part  of  the  student. 
Write  down  the  answer  that  you  feel  is  correct  before  you  turn 

the  pap;e  to  the  answer. 
The  ansv/er  will  alwavs  be  found  at  the  top  of  the  next  nans, 
"^f  your  answer  is  correct  continue  to  the  next  frame. 
;f  your  answer  was  not  correct  return  to  the  frame  and  reread 

inserting  the  correct  answer  as  you  read. 

IP  A  FRA'^  MAKES  NO  SENSE  AT  ALL  TO  YOU  RAISE  YOUR  HAND  AND  WAIT  FOR 
INSTRUCTOR. 


ERIC 
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INTRODUCTION 

To  converse  with  someone  who  speaks  only  a  foreign  language  would  require 
one  of  us  to  learn  another  language  so  we  can  cornmunicate.    Similarly,  to 
communicate  with  a  computer  system  it  is  necessary  to  learn  and  use  it's 
specific  language. 


OBJECTIVE 

This  Programmed  Instruction  Text  covers  the  Octal  Number  System.  Upon 
completion  of  the  text,  you  will  be  able  to: 

!•  Convert  an  Octal  number  to  a  Decimal  number. 

2*  Convert  a  Decimal  number  to  an  Octal  number. 

3.  Convert  Binary  Coded  Octal  to' a  Decimal  number. 

4.  Convert  a  Decimal  number  to  Binary  Coded  Octal. 

5.  Perform  Octal  arithmetic  functions. 


-Ul- 
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OCTAL  NU?1BER  SYSTEM 
In  the  Octal  Number  System  EIGHT  symbols  are  used  to  represent  its  digits. 


V/hat  is  the  BASE  of  the  Octal  Number  System? 
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Since  tne  BASE  of  the  Octal  Nuniber  System  is  EIGHT,  the  positional  values  of 
the  columnr^ll  be  the  BASE  of  the  number  system  raised  to  progressive  powers 
sequentially • 


.A 


fc4 


ANS:     The  first  column  will  always  be  the  BASE  of  the  nuniber  system  raised 
to  the  zero  powei .     Any  number  to  the  zero  power  is  one.     Thus;  First 
column  =  8  or  1,  which  is  indicated  as 


8° 

or 

1 

The  positional  values  of  three  columns  of  the  Octal  number  system  are; 


8^ 

o 

8 

or 

64 

8 

1 

What  are  the  positional  values  for  four  columns  of  the  Octal  number  system? 

Er|c   •  -'c- 


MS: 

8  3 

8  2 

'1 

o 

8 

512 

6i| 

8 

1 

or 

■The  largest  number  that  can  be  indicated  in  one  column  of  any  number  system 
will  be  the  BASE  of  the  number  system  minus  1. 


What  is  the  largest  number  that  can  be  indicated  in  one  column  of  the  Octal 
'lumber  System? 


ERIC 
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ANS:  7 

BASE  of  Octal  Number  System  =  8 
Minus  1  =    -  1 

7 


If  the  largest  number  that  can  be  indicated  in  «ach-rnlumn  is  7,  what  are  the 
symbols  to  indicate  digits  in  the  Octal  Number  System? 


AMS:     0,  1,  2,  3.  4,  5.  6,  and  7 


Method  for  converting  OCTAL  number  system  to  DECIMAL  number. 
Example  of  the  OCTAL  number  225_  converted  to  a  DECIMAL  number. 

1.    Assign  positional  values  of  OCTAL  number  system  above  the  OCTAL  number. 


512 

54 

8 

1 

2  1 

2 

5 

2.     Multiply  digit  indicated  in  each  column  bv  its  positional  value. 

Positional  values  of  columns 


512 


64 


5  X 


-> 


5 

2X8  =16 
2  X  54     =  128 
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3.    Add  positional  values  of  columns 

5X1  =  5 
2X8  =  16 
2  X  61    =  128 


1^9 


Thus,  the  OCTAL  number  225  is  equivalent  to  the  DECIMAL  number  1U9, 


Convert  the  OCTAL  number  136  to  a  DECIMAL  number. 


ERIC  7  J 


ANS:  DECIMAL 


Solution ; 


64 


6X1 
3X8 

.1 

1  X  64 


6 
24 
64 
9ft 


Convert  the  Octal  number  217  to  a  Decimal  number. 


.70 

ANS:     DECIMAL  143 


64 


Solution ; 


TEST 


Convert  OCTAL  number  to  DECIMAL  number 


7  X    1  = 


IX    8  = 


2  X  64  = 


128 
143 


a. 
b, 
c. 
d. 


8 


10 


1  2 

1  7 

3  2 

7  6 
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STEPS  TO  CONVERT  DECIMAL  NUMBER  TO  OCTAL  NUMBER. 
The  Decimal  number  89  converted  to  an  Octal  number. 

1.  Assign  positional  values  of  Octal  Number  System.  The  highest  positional 
value  must  be  larger  than  Decimal  Number       be  converted. 


512 

64 

8 

1 

•Highest  Positional  Value 


Decimal  NuTpber  to  be 
Converted 

i 

89 

2      Indicate  in  the  column  the  number  of  times  the  positional  value  will  go 
iito  the  Decimal  number.     "0"  indicates  positional  value  will  not  gc  into 
Decimal  number.     (Begin  with  highest  positional  value) 


512 

54 

8 

1 

p 

89 


13. 


3.     If  positional  value  in  the  colurnn  will  go  into  the  Decimal  number, 
multiply  the  positional  value  that  goes  into  the  Decimal  nu--.ber  by  the  digit 
indicated  in  the  colTomn;  then,  subtract  result  from  the  Decimal  number. 


512 


64 


8 


89 

25  ^ 


1  X  64 


4.  Indicate  in  the  following  columns  the  number  of  times  the  positional 
values  vlll  go  into  remainder  until  remainder  is  zero. 


89 
64 
25 
24 
1 

1 
0 


1  X  64 


.3X8 


1X1 


512 


64 


8 


Thus ,  the  De  .imal  number  89  is  equivalent  to  the  Octal  number  131. 


Convert  the  Decimal  number  27  to  an  Octal  number. 
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ANS:     Octal  33 


Solution: 


6U 


8 


27 
24 

3 

3 


0 


Convert  the  Decimal  number  42  to  an  Octal  number 


•J 
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Octal  52 


Solution : 


64 


U2 

uo 

2 
2 


t 


veFRIOe  Decimal  number  205  to  an  Octal  numbet'. 


ANS:     OCTAL  315 


Solution : 


512 


6H 


8 


7^ 


v?05- 
192 

•.13 

 8 

5 

 5 

0 


(3  X  64) 

(1  X  8) 
(5X1) 


Convert  Decimal  to  Octal 


TEST 


10 


a. 
b. 
c. 

d. 


6 

1  8 


BINARY  CODED  OCTAL  (BCO) 


Binary  Coded  Decimal  one  decimal  number  was  represented  with  Vs  and  0*s  in 
;roup  of  four  bits  (four  columns).     In  Binary  Coded  Octal  three  bits  are  used 

represent  one  Octal  number  with  I's  and  O's.  The  positioned  values  of  these 
:^e  bits  are  the  same  as  the  first  three  bits  in  the  Binary  Numbering  System. 


at  are  the  positional  values  of  the  three  bits  in  Bina-y  Coded  Octal? 


7 


ANS: 


The  OCTAL  number  6  is  represented  with  three  bits  in  Binarv  Coded  Octal: 


4 

2 

,  1 

1 

1 

1  0 

! 

thus,  110 


Tne  OCTAL  number  36  represented  in  Binary  Coded  Octal. 


1 

2 

1 

2 

1 

0 

1 

1 

1 

1 

0 

thus.        Oil  110 
.  •  •  •  /  xJl_:l— ^ 


In  Binary  Coded  Octal  only  the  digil's  0  through  7  can  be  indicated  in  one  f_ 
of  three  bits* 


Convert  the  Binary  Coded  Octal  number  0  10     1  0  0  to  an  Octal  number. 


3 

\MS:     24  Solution:  9  ^"  ? 


2  4 


Convert  the  Binary  Coded  Octal  number  10  1    0  0  1  to  an  Octal  number. 
O 

ERIC 


ANS:  51 


Solution : 


10  1        0  0  1 


Convert  OCTAL  number  43  to  tUnar-/  Coded  Octal, 

ERIC 


so 

ANS:       10  0  Oil 


Convert  OCTAL  number  72  to  Binar'/^  Ceded  Octal. 


ANS:  111 


0  10 


Solution 


111 


81 


0  10 


TEST 


1.     Convert  Binarnr  Coded  Octal  to  Octal  number. 


4 

1 

4 

2 

1 

8  •  1 

a. 

0 

0 

1 

0 

0 

1 

•  • 

b. 

0 

0 

1 

1 

0 

1 

•  • 

c. 

1 

0 

1 

1 

1 

0 

•  • 

d. 

1 

1 

1 

1 

0 

0 

•  • 

( Octal  number) 
(Octal  number) 
( Octal  number) 
( Octal  number) 


2.     Convert  Octal  nunber  to  Binary  Coded  Octal. 

64     8     1  .421 

a.  5 

b.  2  3 

c.  5  2 

d.  1     2     7  .     .  . 


4     2  1 


4  2 
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OCTAL  ADDITION 


U-3 
+  55 


Add  one  column  at  a  time. 


1 
3 

_6_ 

9 


2.  If  result  is  7  or  less  indicate  result  in  column.  But  if  result  is  more 
than  7,  subtract  result  by  8  (the  base  of  the  Octal  nunber  system). 


3 
+6 

9 

1 
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Indicate  renainder  in  the  column  added  and  carry  1  to  next  column. 

1  cari 

First  column : 


Add  following  columns  in  same  manner  (include  1  carry). 
Second  column:  1  carry;^! 


Third  column: 


1 

U  3 
5  6 


12  1 

Thus ,  the  result  of  the  OCTAL  addition  is  121. 


Perform  OCTAL  addition 


ERIC 
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+  7 
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84 

ANS :  11 


Perform  OCTAL  addition: 


•+2 


ANS:  117 


TEST 

Perform  OCTAL  addition: 

2  12 
a.       +  5  b.     +  7 


52 

c.  +66 


54 

d.  +31 


8h 


OCTAL  SUBTRACTIOM 

45 
-  17 


1.     Subtract  one  column  at  a  time. 


«♦  .5 
1  7 


5 
-7 


2.  If  minuend  (number  to  be  subtracted  from)  is  smaller  than  subtrahend, 
borrow  the  base  (8)  from  next  column. 


-1 


1  3 
-  7 


(5+8  (Base)) 


ERIC 


-66- 


3.     Indicate  result  in  the  column  subtracted 


First  Column: 


17 


1  3 
-  7 


4,     Subtract  following  column  in  same  manner 
Second  Column: 


Thus,  the  result  of  the  OCTAL  subtraction  is  26, 


Perform  OCTAL  subtraction: 


34 

15 
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88 

ANS :  17 


4 


oerform  OCTAL  subtraction: 


7  3 


TEST 


Perform  OCTAL  subtraction; 

5  2 
a.  -1  U 


6  4 
b.   -2  5 


3  7 
c.  -1  7 


6  6 
d.   -5  7 
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DATA  REPRESENTATION 
PART  III 
HEXADECIMAL  NUMBER  SYSTEM 


-    10  i 


READ  THE  FOLLOWING  INSTRUCTIONS  CAREFULLY  BEFORE  YOU  START  THE  LESSON' 
MATERIALS  REQUIRED: 

In  addition  to  the  booklet  you  should  have  a  pencil  and  some  paoer. 

A  quiet  environment  that  is  conducive  to  strong  concentration. 
PROCEDURE  THAT  SHOULD  BE  FOLLOWED: 

Read  the  frame  very  carefully. 

In  some  cases  the  frame  should  be  read  twice.  , 

Most  of  the  frames  require  a  response  on  the  part  of  the  student. 

Write  down  the  answer  that  you  feel  is  correct  before  you  turn 

the  page  to  the  answer. 
The  answer  will  always  be  found  at  the  top  of  the  next  page. 
If  your  answer  is  correct  continue  to  the  next  frame. 
If  your  answer  was  not  correct  return  to  the  frame  and  reread 

inserting  the  correct  answer  as  you  read. 

IF  A  FRAME  MAKES  NO  SENSE  AT  ALL  TO  YOU  RAISE  YOUR  HAND  AND  WAIT  FOR 
INSTRUCTOR. 


10 
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INTRODUCTION 


To  converse  with  someone  who  speaks  only  a  foreign  languap.e  would  require 
one  of  us  to  learn  another  language  so  we  can  comTnunicate.    Siinilarlv,  to 
communicate  with  a  computer  system  it  is  necessary  to  learn  and  use  it's 
specific  language. 


OBJECTIVE 


This  Proi^rammed  Instruction  Text  covers  the  Hexadecimal  Number  System. 
Upon  completion  of  the  text,  you  will  be  able  to: 

Convert  a  Hexadecimal  number  to  a  Decimal  number. 

2.  Convert  a  Decimal  number  to  a  Hexadecimal  number. 

3.  Convert  Binary  Coded  Hexadecimal  to  a  Decimal  number. 
4^  Convert  a  Decimal  number  to  Binary  Coded  Hexadecimal. 
5.    Perform  Hexadecimal  arithmetic  functions. 


■  I'J3 
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HEXADECIMAL  NUmER  SYSTEM 

In  the  Hexadecimal  Number  System  SIXTEEN  symbols  are  used  to  represent  it's 
digits. 


What  is  the  BASE  of  the  Hexadecimal  Number  System? 

104 


9+ 

fiNS:     The  BASE  of  the  HEXADECIMAL  number  system  is  SIXTEEN,     This  is  because 
sixteen  symbols  are  used  to  represent  digits  in  this  number  system. 


Since  the  BASE  of  the  HEXADECIMAL  number  system  is  SIXTEEN,  the  positional 
values  of  the  columns  will  be  the  BASE  of  the  number  system  raised  to 
progressive  powers  sequentially. 


vmat  is  the  positional  value  of  the  first  column  in  HEXADECIMAL  number 
system? 
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ANS: 

15° 

[  or 

1 

9S 


The  first  colunn  will  always  be  the  BASH  of  the  number  system  raised  to 
the  zero  power.     Any  number  to  the  zero  power  is  one.    Thus  first  column 
=  "16°  or  1. 


The  positional  values  of  three  columns  of  the  HEXADECI?-1AL  number  system  are: 


16^ 

16^ 

16° 

or 

255 

16 

1 

What  are  the  positional  values  for  four  columns  of  the  HEXADECIMAL  number 
system? 


91^ 

ANS: 


16  2 

16  1 

16  ^ 

or 

U096 

256 

16 

1 

The  largest  number  that  can  be  indicated  in  one  column  of  anv  numbering 
system  will  be  the  BASE  of  the  numbering  system  minus  1. 


V/hat  is  the  largest  nuFiber  that  can  be  indicated  in  one  column  of  the 
HEXaOECIMAL  number  system? 
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97 


ANS: 


15 


Solution : 


BASE  of  Hexadecimal  Number  Svstem  = 
Minus  1 


16 
_1 
15 


In  the  HEXADECIMAL  number  system  alphabetic  letters  are  used  to  indicate 
10  through  15, 


10 

A 

11 

3 

12 

C 

13 

D 

14 

E 

15 

F 

If  the  largest  digit  that  can  be  indicated  in  each  column  is  F  (which  is  15)^ 
what  are  the  symbols  that  are  used  to  indicate  digits  in  the  Hexadecimal 
number  system? 


ERIC 


38 

ANS:       0,  1,  2,  3,  ^,  5,  6,  7,  8,  <3»  A,  B,  C,  D,  E,  and  F. 


Method-for  converting  HEXM)ECI?4AL  nuTiber  system  lo  DECIMAL  number  system. 

Example  of  the  H2XK}ECIMAL  number  ^F  converted  to  a  DECIMAL  number. 

1.     Assign  positional  values  of  HEXWDECIMAL  number  system  above  the 
hexadecimal"  number. 


256 

16 

1 

4 

r 

2,     Multiply  digit  indicated  in  each  colurnn  by  its  positional  value ♦ 


256 


16 


-Positional  Values 
of  Columns 


15  X  1  =  15 
^      4  X     16     =  64 


lu 


J 


FRir 


3.     Add  positional  values  of  columns 

15  X    1  =  15 
1+  X  15  -  6M- 
79 

Thus,  the  HEXADECIMAL  number  4F  is  equivalent  to  the  DECIMAL 
number  79. 


Convert  HEXADECIMAL  IB  to  a  DECIMAL  number. 
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100 

ANS :  27 


Solution : 


255 


16 


11  X    1  =  11 


1  X  16  =  16 
27 


Convert  HEXADECI?1AL  A3  to  a  DECIMAL  number? 


11 
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ANS: 

163 

Solution: 

255 

16 

1 

A 

3 

1 

loi 


-^1X3=  3 

10  X  15  =160 


163 


Convert  HEXADECIMAL  to  DECIMAL, 


TEST 


a. 
b, 
c, 
d. 


256      15  1 


100       10  1 


A 
F 
C 


E 
9 
3 
6 


«  • 


•  •  • 
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Method  for  converting  DECIMAL  number  system  to  HEXADECIMAL  number  system. 
Example  of  the  DECIMAL  number  167  converted  to  a  HEXADECIMAL  number. 

1.     Assign  positional  values  of  HEXADECIMAL  number  system.     The  highest 
positional  value  must  be  larger  than  DECIMAL  number  to  be  converted. 


Decimal  number 
to  be  converted 


i 

167 


256 

16 

1 

2.     Indicate  in  the  column  the  number  of  times  the  positional  value  will  go 
into  the  DECIMAL  number.     "0"  indicates  positional  value  will  not  go  into 
DECIMAL  number     (Begin  with  highest  positional  value.) 


167 


256 

16 

1 

0 

ERIC 
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3,  If  positional  value  in  the  column  will  go  into  the  DECIMAL  number, 
multiply  the  positional  value  that  goes  into  the  DECIMAL  number  by  tne 
digit* indicated  in  the  column j  then,  subtract  result  from  the  DECIMAL 


number. 


167 
160 


256 

16 

1 

0 

A 

10  X  16 


4.  Indicate  in  the  following  columns  the  number  of  times  the  positional 
values  will  go  into  remainder  until  remainder  is  zero. 


167 
160 


7 

7 


256 

16 

1 

0 

i 

^ 

7 

10  X  16 


7X1 


Thus  the  DECIMAL  number  167  is  equivalent  to  the 
HEXADECIMAL  number  A7. 


Convert  the  DECIMAL  number  230  to  a  HEXADECIMAL  number. 


ill 

-83- 


m 

ANS:  E6 


Solution: 


230 

6 
6 


256 


16 


X  16 


X  1 


Convert  the  DECIMAL  number  56  3  to  a  HEXADECIMAL  number. 


llo 


ERIC 
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ANS:  233 


Solution : 


563 
512 
51 
48 
3 

 3 

0 


Convert  Decimal  tc  Hex&deciinal 


4096 


2  X  256 


3  X  16 


3X1 


TEST 


256 


15 


1000 


100  10 


256  16 


a. 
b. 
c. 
d. 


1 
9 

2  6 


1 
7 

1 


3 
5 

0 


BINARY  CODED  HEXADECIMAL  (BCH) 


In  Binary  Coded  Decimal ,  one  decimal  number  was  represented  with  I's  and 
O's  in  a  group  of  four  bits  (four  columns).    In  Binary  Coded  Hexadecimal, 
again  four  bits  are  used  to  represent  one  Hexadecimal  number  with  l^s  and 
O's,    The  positional  values  of  these  four  bits  are  the  same  As  the  first 
four  bits  in  the  Binary  Numbering  System • 


What  are  the  positional  values  of  the  four  bits  in  the  Binary  Coded 
Hexadecimal? 


erIc 


ANS: 

8 

4 

2 

1 

The  Hexadecimal  number  A  (10)  reoresented  in  Binary  Coded  Hexadecimal 
(with  four  bits) : 


8 

2 

1 

1 

0 

1 

0 

thus  , 


10  10 

•  •  •  •  J 


The  Hexadecimal  number  6A  represented  in  Binarv  Coded  Hexadecimal. 


8 

4 

2 

1 

8 

4 

2 

1 

thus,        0110  1010 

«      •      ft      *                       •      •  ^»  \ 

6  A 

0 

1 

1 

0 

1 

0 

1 

0 

In  Binary  Coded  Hexadecimal  the  digits  0  through  F  (15)  can  be  reoresented 
in  one  group  of  four  bits . 


Convert  the  Binary  Coded  Hexadecimal  number  1011  0001  to  a 
Hexadecimal  number. 


11Sb7- 


ANS:  Bl 


Solution; 


11 

>  r     Z  < 


B 


Convert  the  Binary  Coded  Hexa^decimal  number  ii2.2.^°^ 
Hexadecimal  number. 


ANS: 


3C 


Solution : 


£  1 
\  


1_  1_ 
 f 


110  0 


I 


Convert  Hexadeciinal  number  3D  to  Binary  Coded  ilexAdecimal. 


NO 

ANS: 


0011  1101 


Solution : 


0  0  11 


Convert  Hexadecimal  number  BE  to  Binary  Coded  Hexadecimal. 


ERIC 
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TEST 


1.     Convert  Binary  Coded  Hexadecimal  to  Hexadecimal. 


a. 
b. 
c. 
d. 


8  H  2  1 


0  0  10 


8  4  2  1 
0  110 

•  •       •  • 

110  0 

•  •     •  • 

10  11 


8  t|  2  1 
0  111 

•  •       •  • 

110  1 

•  «      •  • 

0  110 

•  •     •  • 

1111 


256     16  1 


a        2.     Convert  Hexfideciraal  to  Binary  Coded  HexAdecimal. 


a. 
b. 
c. 
d. 


256  15 


C 

E  4 
9  A 
3  B 


8421  8421 


8  4  2  1 


HEXADECIMAL  ADDITION: 


AU 
6E 

1,  Add  one  column  at  a  time. 
First  Column: 


A 
6 


I 


E 


♦  14 


18 


2.     If  result  is  F  (15)  or  less  indicate  result  in  column  (in  Hexadecimal) 
But  if  result  is  more  than  F,  subtract  result  by  15  (the  base  of  the 
Hexadecimal  number  system) . 


First  Column : 


A 
6 


4 

E 


4 

+  14 

18 

2 
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3.     Indicate  remainder  in  the  c»lunn  added  and  carry  1  to  next  column 


First  Column: 


4,  Add  following  columns  in  same  manner  (include  1  carry). 
Second  Column :  1  carry 


Third  Column 


•r-i 
'll  1 
!    I  A  U 

I    I  ^  ^ 
112 


Thus,  the  result  of  the  Hexadecimal  addition  is  HEXADECIMAL  112. 


Perform  Hexadecimal  addition:  8 

*'er!c 


ANS:  B  (11) 


Perform  Hey.ftdeciinal  addition: 


B  7 
1  3 


/IS 

ANS:  C  A 


Perform  Hexadecimal  addition:  C  D 

■t-  3  E 

J       ^  -954 


ANS: 


18B 


TEST 

Perform  Hexadecimal  addition: 


8  A6 
a.     +  5  b.     +  45 


B4  D  E 

c.  +  6E  d.       C  F 


ERIC 


7  '>  ' 


-96- 


HEXADECIMAL  SUBTRACTION 

A5 
+  6D 

i.     Subtract  one  column  at  a  time. 


2.  If  minuend  (number  to  be  subtracted  from)  is  smaller  than  subtrahend, 
borrow  the  base  (16)  from  next  column. 

9  r—  ^ 

AS  2  1.  G5  +  16  (BASE)] 

6  D  -  1  3 


118 


3.    Indicate  result  in  the  coliimn  subtracted. 
First  Column: 

9 

A  5      ■  2  1 

6  D  -  1  3 


8„  8 


^,     Subtract  following  column  in  sane  manner. 
Second  Column: 

9 

.    •  A  5  ^  9 

6  D  -  6 


3  8 


Thus 3  the  result  of  Hexadecimal  subtraction  is  38i 


Perfom  Hexadecimal  subtraction:  9  U 

7  C 


ERIC 

iOBBMB  ^^^^ 


ANS:  18 


Perform  Hexadecimal  subtraction  C  3 

-  6  B 


'ANS;  58  ^ 


TEST 


Perform  Hexddecimal  subtraction: 

HI  A  2 

a.  -2  B  b.        -  8  7 


C  »♦ 
C-  A  1 


d. 


D  C 
-AC 
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DATA  REPRESENTATION 
PART  IV 
BCDIC  and  EBCDIC 


^  An  understanding  of  the  Hollerith  Code  is  a  prerequisite  for  this 
part  of  Programmed  Instruction  Text,  P.I.  TEXT  on  Punched  Cards  is 
TC  m*7l-50PT. 


1 


13^ 

O-  riW 
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READ  THE  FOLLOWING  INSTRUCTIONS  CAREFULLY  BEFORE  YOU  START  THE  LESSON 
MATERIALS  REQUIRED: 

In  addition  to  the  booklet  you  should  have  a  pencil  and  some  paper. 

A  quiet  environment  that  is  conducive  to  strong  concentration. 

PROCEDURE  THAT  SHOULD  BE  FOLLOWED: 

Read  the  frame  very  carefully. 

In  some  cases  the  frame  should  be  read  twice. 

Most  of  the  frames  require  a  response  on  the  oart  of  the  student. 
Write  down  the  answer  that  you  feel  is  correct  before  you  turn 

the  page  to  the  answer. 
The  answer  will  always  be  found  at  the  too  of  the  next  page. 
If  your  answer  is  correct  continue  to  the  next  frame. 
If  your  answer  was  not  correct  return  to  the  frame  and  reread 

inserting  the  correct  answer  as  you  read> 

IF  A  FRAf^E  ilAKES  NO  SENSE  AT  ALL  TO  YOU  RAISE  YOUR  HAND  AND  WAIT  FOR 
INSTRUCTOR. 


EKLC 
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INTRODUCTION 


To  converse  with  someone  who  speaks  only  a  foreign  language  would  require 
one  of  us  to  learn  another  language  so  we  can  communicate*  Similarly, 
to  communicate  with  a  computer  system  it  is  necessary  to  learn  and  use 
it*s  specific  language. 


OBJECTIVE 


This  Programmed  Instruction  Text  covers  the  various  codes  used  to 
represent  alphabetic,  special,  and  numeric  data  internally  within  a 
computer  system.     Upon  completion  of  the  text  you  will  be  able  to: 

1.     Interpret  the  Binary  Coded  Decimal  Interchange  Code. 


2.     Interpret  the  Extended  Binary  Coded  Decimal  Interchange  Code- 


BINARY  CODED  DECIMAL  INTERCHANGE  CODE 

In  Binary  Coded  Decimal,  four  bits  were  used  to  represent  one  decimal  digit 
and  only  digits  could  be  represented  in  this  code.     By  extenSing  this  four 
bit  field  by  two  more  bits  we  can  represent  alphabetic  characters  as  well 
as  numbers.     This  second  generation  six  bit  field  is  known  as  the  BINARY 
CODED  DECIMAL  INTERCHANGE  CODE  (BCDIO* 


B  A  8  4  2  1 


Name  the  two  punches  required  on  a  punched  card  to  represent  characters. 


i 
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ANS: 


Zone  punch  and  digit  punch 


The  zone  and  digit  bits  of  the  Binary  Coded  Decimal  Interchange 
Code: 

Zone  Digit 
Bits  Bits 


BA  8421 
Zone  bits  used  to  represent  zone  punches. 


(Punch)  (Bits) 
Zone  BA 


12  =  11 

11  =  10 

0  =  01 


V/hat  letters  can  be  represented  in  the  Hollerith  Code  with 
a.     12  zone  punch? 
b-     11  zone  punch? 
Cp      0  zone  punch? 


135 
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AHS: 


a.  A  through  I 

b.  J  through  R 

c.  S  through  Z 


Representation  of  characters: 


character:- 

A 

J 
S 
9 


ZONE 
PUNCH 


DIGIT 
PUNCH 


12.  1 
11,  1 
0.  2 

(not  used)  ,9 


ZONE 
BITS 
BA  _ 

11 

10 

01 

00 


DIGIT 
BITS 
8421 

0001 

0001 

0010 

1001 


What  are  the  Hollerith  Code  punches  used  to  represent  the  letter  "B"? 


ERIC 
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ANS:  "12"  zone  punch »  "2"  digit  punch, 


Indicate  the  letter  "3"  in  the  Binary  Coded  Decimal  Interchange 
Code. 


1  '  i 
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ANS:  B  A    8  H  2  1 

11    0  0  10 


Indicate  the  letter  "M"  in  BCDIC. 


ERIC 
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ANS: 


B  A  8  U  2  1 
10  0  10  0 


Indicate  the  letter  "V"  in  BCDIC. 


li 

ERIC 


AMS:  B  A  8  4  2  1 

0  10  10  1 


Indicate  the  number  "e"  in  BCDTC. 


ERIC 
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131 

ANS:  B  A  8  U  2  1 

0  0  0  1  1  0 


TEST 

Indicate  character  in  BCDIC, 

CHARACTER  BA  8  ti  2  1 


a.  U 

b.  D 

c.  L 

d.  «» 


1 

_L  ^x 
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133. 


Special  characters  used  BCDIC  will  not  be  discussed  in  the  Prosrainined 
Instruction  Text.     IBM  System  360  Reference  Data  Card  provides  the  bit 
configuration  of  special  characters  in  BCDIC. 


ERIC 
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PARITY  CHECK 

Whenever  data  is  transferee!  from  one  device  to  another  in  a  computer 
svstetn,  there  is  always  a  chance  that  a  bit  condition  ("on"  or  "ofF') 
may  be  lost  or  gained.    This  of  course,  would  change  the  character 
represent at ion.     An  additional  check  bit  position  has  been  added  to  the 
six  bit  field  (  BCDIC)  to  make  what  is  called  a  parity,  check  so  we  can 
determine  when  a  bit  has  been  lost  or  gained: 

-check  bit 

C  B'  A  8  4  2  1 


When  making  an  odd  parity  check,  the  number  of  "1"  bits  under  the 
BA8421  are  counted.     If  the  number  of  "1"  bits  is  even,  another  "1" 
bit  is  placed  under  the  check  bit  (C)  to  make  the  entire  number  of  7  bits 
0dd.     For  even  parity  the  entire  number  of  7  bits  is  even. 

The  letter  "C"  with 

1.  Odd  Parity:  C  B  A  8  4  2  1 

1110  0  11 

2.  Even  Parity:  C  B  A  8  4  2  1 

0  110  0  11 


Place  the  proper  check  bit  condition  ("1"  or  "0")  for  the  letter  "B" 
Check  for  odd  narity: 

■  C  B  A  8  4  2  1 

110  0  10 


144 


13+ 

ANS: 


C  B  A  8  4  2  1 
0  110  0  10 

•      •      •     ~«      •  • 


.4 


Place  the  oroper  check  bit  condition  for  the  letter  "E".  Check  for 
odd  parity. 

C  B  A  8  4  2  1 
-  1  1  0  1  0  1 
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/35 

ANS:  C  B  A  8  4  2  1 

?  1110  10  1 


Place  the  proper  check  bit  condition  for  the  letter  "A".  Check  for  even 
parity, 

C  B  A  8  4  2  1 
-  1  1  0  0  0  1 

146 
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/34 

ANS: 


C  B  A  8  U  2  1 
1  1  1  0  0  0  1 


Place  the  proper  check  bit  condition  for  the  letter  "K".  Check  for 
even  parity, 

C  B  A  8  4  2  1 
1  0  0  0  1  0 


147 
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ANS:  C  B  A  8  4  2  1 

0  1  0  0  0  1  0 


TEST 

Place  proper  check  bit  condition: 


1.  Odd  Parity 

C  B  A  8  4  2  1 

a.  -110100 

b.  -100111 

c.  -111001 

d.  -010011 

2 .  Even  Parity 

C  B  A  8  M  2  1 

a.  -100101 

b.  -010111 

c.  -111000 

d.  -100100 


148 


EMC 
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738 


EXTENDED  BINARY  CODED  DECIMAL  INTERCHANGE  CODE 


In  the  Binary  Coded  Decimal  Interchange  Code,  alphabetic  characters  could 
bs  represented  as  either  capital  letters  (upper  case)  or  small  letters 
(lower  case),  but  not  in  both  cases.    By  extending  the  bit,  we  can  represent 
both  upper  and  lower  cases  of  letters.    The  new  third  generation  eight  bit 
code  is  known  as  the  Extended  Binary  Coded  Decimal  Interchange  Code  (EBCDIC). 


CASE 
BITS 


ZONE 
BITS 


DIGIT 
BITS 


8U21 


149 


139 


8  4 

Case  bits  1  1  indicate  capital  letters  (upper  case). 
Case  bits  1  0  indicate  small  letters  (lower  case). 

Hexadecimal  numbers  are  indicated  by  using  I's  for  both  case  &  zone  bits. 
Representation  of  Characters : 

HOLLERITH  CODE 


CHARACTER 

ZONE  DIGIT 
PUNCH  PUNCH 

CASE 
BITS 

ZONE 
BITS 

DIGIT 
BITS 

84 

21 

8421 

A 

12,  1 

11 

00 

0001 

a 

=  (not 

applicable) 

10 

00 

0001 

J 

11.  1 

11 

01 

0001 

• 

D 

=  (not 

applicable) 

10 

01 

0001 

S 

0  2 

11 

10 

0010 

s 

=  (not 

applicable) 

10 

10 

0010 

9 

=  (not 

used),  9 

11 

11 

1001 

Note  that  the  "on"  and  "off"  condition  of  the  zone  bits  in  EBCDIC  is  the 
reverse  of  the  "on"  and  "off"  condition  of  the  zone  bits  in  BCDIC. 


Indicate  the  followinp:  in  EBCDIC. 

a.  Canital  "3" 

b.  Small  "b" 
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8421  8H21 

ANS:  a.  1100      0010  =  B 

b.  1000      0010  =  b 


Indicate  the  following  in  EBCDIC. 

a.  Capital  "M" 

b.  Small  "m" 


151 


8421  8421  /✓// 

ANS:  a.  1101  0100  =  "M"  'V"/ 


b.  1001  0100  =  "m" 


Indicate  following  in  EBCDIC. 


a.  Capital  "V* 

b.  Number  "7" 
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'   '  8U21  8421 

AMS:  a.  1110  0101  =    "V"  * 

b.  1111  0111  =  "7" 

^Remember  that  "V^'  is  0  zone  punch,  5  digit  punch, 

TEST 

Indicate  character  in  EBCDIC. 

CHARACTER  8U21  8421 

c.  t  (small) 

d.  «+ 


•  •  ■  ■  •  ■  ■ 


i53 


/43 


Special  characters  used  in  EBCDIC  will  not  be  discussed  in  this  Programmed 
Instruction.     IBM  System  360  Reference  Data  Card  provides  the  bit  configuration 
of  special  characters  in  EBCDIC. 


A  parity  check  can  also  be  made  in  EBCDIC  by  providing  an  additional 
check  bit.     With  the  exception  that  there  are  more  bits'in  EBCDIC  than 
in  3CDIC,  the  method  of  checking  for  parity  is  the  same. 


J  54 

-123- 


The  smallest  unit  of  data  in  a  computer  is  a  Bit.    Eight  bits  form  the  next 
smallest  unit  of  data,  a  Byte.     In  EBCDIC,  you've  seen  that  we  can  use  one 
byte  to  represent  either  an  alphabetic  character,  one  hexadecimal  number, 
or  one  special  character. 

Examples:  ^ 

BYTE  BYTE  BYTE 

ZONED  DIGIT  ZONE  DIGIT  ZONE  DIGIT 

I  nil  I  looTl  =   9        I  1100  I  QooTl  =  a  oioi  j  ion  \=  $ 

F  9  CI  SB 

For  representing  only  numeric  data,  EBCDIC  is  redundant  and  wasteful  of 
storage  space  in. the  computer.    This  is  because  for  numeric  data  in  EBCDIC, 
the  zone  half  of  each  byte  is  a  hexadecimal  F  (1111).     The  major  exception 
to  this  is  the  usage  of  plus  (  +  )  and  minus  (— )  si^s,  which  are  sho^^m  in  the 
zone  portion  of  the  ri^ht  most  byte  of  an  EBCDIC  number^    To  show  a  positive 
number  the  F  is  changed  to  a  C,  and  to  show  a  negative  number  the  F  is 
changed  to  a  D. 

Examples : 

i  F|  7|F|l|F[6tFl9  j  =     7169  (This  is  assumed  positive,  although  not  shown) 
PT7|F11\F\6VC\9  I  =-^7169 
\F\7\F\l\F\6\n|g  \  =-7169 


Convert  the  following  numbers  to  EBCDIC  format. 

a.  9U3  c.     +  3H9 

b.  -  943  d.     -  8767 

ERiC  155 


EiaiiliQIslli 


As  you  can  see,  the  F  zone  is  repetitive  and  wastes  storage  snace.  To 
eliminate  this  waste,  the  computer  provides  the  "packed  Decimal"  or 
"Binary  Coded  Decimal"  representation.     Once  again  "C"  indicates  a 
POSITI^/E  (  +  )  number,  and  the  "D" ,  a  NEGATIVE  (-)  number.     The  difference 
is  that  each  byte  contains  2  decimal  digits,  with  the  'sif^n  shown  in  the 
"DIGIT"  portion  of  the  rightmost  byte  in  the  number^ 

Example : 

Decimal  number  +  63264 

Represented  in : 

EBCDIC  lFl6|Fl3|Fl2lFt6\ClH"t 

Packed  Decimal      \   6]3|2|6yf  tC  j 

Note  that  instead  of  using  5  bytes,  we  are  now  able  to  use  only  3  bytes, 
thus  a  saving  of  2  bytes. 

If  the  number  you  are  packing  does  not  completely  fill  the  area  you've 
allocated  for  it,  zero's  (0)  are  used  as  fill  on  the  left. 

Example : 

\  Fl8jF|3lFT2lDTn  EBCDIC 


-8321  j    0 1 8  13  [2  |1 1 D 1  Packed 


Indicate  the  decimal  number  +421  in  EBCDIC  format  and  in  packed  format 


EBCDIC 


«  M2I1IC  I 


Packed 


In    Pack ing"  ^' the  proper  method  for  calculating  how  many  bytes  will  be 
necessary  to  accomodate^a  number  is  to  first  count  the  digits  in  the  number. 
If  it  is  an  even  number,  add  two  (2)  to  it.     If  it's  odd,  add  one  (1). 
Then  divide  this  number  by  two^     The  result  will  be  the  number  of  bytes 
needed*  '* 


Example: 
+U59 


=  3     Digits  (odd) 

_1  Add  1 

_4  ^Divide  by  2 

2    #  of  bytes 


+  5324  = 


4      Digits  (even) 

2  Add  2 

6       Divide  by  2 

3      #  of  bytes 


t    0  |6j3  |2      ]C  ( 


How  many  bytes  will  be  needed  to  pack  the  number? 

a.  8752391 

b.  678211+67821431 
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/47 

ANS:  A.     =  4 

B.     =  8 


You  have  seen  now  how  alphabetic  characters  ^  nuinber,  and  special  synibols 
are  represented  in  EBCDIC.    You  have  further  seen  how  we  can  save  storage 
space  by  using  the  "Packed  Decimal"  feature  in  representing .numbers. 
Proper  knowledge  of  this  is  necessarv  in  gaining  a  complete  understanding 
of  computer  systems. 
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AMERICAN  NATIONAL  STANDARD  COBOL 

for 

IBM  System/360  Disk  Operating  System  &  Operating  System 


/SI 


This  manual  is  designed  as  a  student"  introductory  text  to  'ANSI'  COBOL.  Since 
this  is  an  introductory  text,  information  contained  herein  may  contain  over- 
simplified explanations  of  the  COBOL  syntax.    More  explicit  information  may  be 
obtained  from  IBM  System/360  Disk  Operating  System  American  National  Standard 
COBOL,  File  Number  S360-24,  GC28-6394  or  IBM  System/360  Operating  System 
American  National  Standard  COBOL  GC28-6396  (IBM  Systems  Reference  Library,  DOS). 
Information  contained  herein  is  extracted  mostly  from  these  publications. 
Army  standards  were  taken  from  U.S.  Army  Computer  Systems  Command  Manual 
18-1-1,  dated  15  May  1975. 

The  following  extract  from  Government  Printing  Office  Form  Number  1965-0795689 
is  presented  for  the  information  and  guidance  of  the  user: 

"Any  organization  interested  in  reproducing  the  COBOL  report  and  specifications 
in  whole  or  in  part,  using  ideas  taken  from  this  report  as  the  basis  for  an 
instruction  manual  or  for  any  other  purpose  is  free  to  do  so.    However,  all 
such  organizations  are  requested  to  reproduce  this  section  as  part  of  the 
introduction  to  the  document.    Those  using  a  short  passage,  as  in  a  book  review, 
are  requested  to  mention  'COBOL'  in  acknowledgement  of  the  source,  but  need 
not  quote  this  entire  section." 

"COBOL  is  an  industry  language  and  is  not  the  property  of  any  company  or  group 
of  companies,  or  of  any  organization  or  group  of  organizations  "  .^o  warranty, 
expressed  or  implied,  is  made  by  any  contributor  or  by  the  COBOL  Committee  as 
to  the  accuracy  and  functioning  of  the  programing  system  and  language.  More- 
over, no  responsibility  is  assumed  by  any  contributor,  or  by  the  committee  in 
connection  therewith."    Procedures  have  been  established  for  the  maintenance 
of  COBOL      Inquiries  concerning  the  procedures  for  proposing  changes  shouKl  be 
directed* to  the  Executive  Committee  of  the  Conference  on  Data  Systems 
Languages."    "I he  authors  and  copyright  holders  of  the  copyrighted  material 
used  herein  have  specifically  authorized  the  use  of  this  material  in  whole  or 

FLOW-MATIC  (Trademark  of  Sperry  Rand  Corporation),  Programing  for 
the  UNIVAC  (R)  I  and  II,  Data  Automation  Systems  copyrighted  1958, 
1959,  by  Sperry  Rand  Corporation;  IBM  Commercial  translater.  Form 
No.  F28-8013,  copyrighted  1959  by  IBM;  FACT,  DSI  27A5260,  copy- 
righted I960  by  Minneapolis-Honeywell. 

in  part,  in  the  COBOL  specifications.    Such  authorization  extends  to  the 
reproduction  and  use  of  COBOL  specifications  in  programing  manuals  or  similar 
publications 

Information  in  this  text  represents  the  language  promulgated  by  the  Conference 
On  Data  Systems  Languages  (CODASYL)  (the  USA  standard  of  the  language  is 
IhieFicanNationaT  Standard  COBOL,  X3. 23-1968  (formerly  known  as  USA  Standard 
COBOL,  as  approved  by  the  American  National  Standards  Institute  (ANSIJ,  unless 
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specifically  stated  otherwise.    COBOL  is 
designed  to  be  highly  self -documenting, 
document'  the  program  as  it  is  written. 


a  problem  oriented  language  which  is 
The  structure  of  the  language  helps 
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INTRODUCTION 


COBOL  LANGUAGE  CONSTRUCTION.    COBOL  is  based  on  English.    It  uses  English- 
type  words  and  certain  syntax  rules  derived  from  English.    However,  because 
it  is  a  computer  language,  it  is  much  more  precise  than  Eng  ish  The 
programer  must,  therefore,  learn  the  rules  that  govern  COBOL  and  follow  them 
exactly. 

The  basic  unit  of  COBOL  is  the  word.    This  may  be  either  a  COBOL  reserved 
word  or  a  programer-def ined  word.    Reserved  words  have  a  specific  syntactical 
meaning  to  the  COBOL  compiler  and  must  be  spelled  exactly  as  shown. 
Programer-def ined  words  are  assigned  by  the  user  to  such  items  as  data-names 
(a  name  made  up  by  the  programer  to  refer  to  a  specific  piece  of  data  in 
memory).    Reserved  words  and  programer-def i ned  words  are  combined  by  the  pro- 
gramer into  clauses  and  statements. 

Clauses  and  statements  must  be  formed  following  the  specific  syntactical  rules 
of  COBOL     A  clause  or  a  statement  specifies  only  one  action  to  be  performed, 
one  condition  to  be  analyzed,  or  one  description  of  data.    Clauses  and  state- 
ments can  be  combined  into  sentences. 

Sentences  may  be  simple  (one  statement  or  combination  of  clauses).  Sentences 
can  be  combined  into  paragraphs,  which  are  named  units  of  logically  related 
sentences,  and  paragraphs  can  be  further  combined  into  named  sections. 

Both  paragraphs  and  sections  can  be  referred  to  as  procedures,  and  their 
names  can  be  referred  to  as  procedure  names. 

Procedures  (sections  and  paragraphs)  are  combined  into  divisions.  Divisions 
are  joined  into  a  COBOL  program.    Each  program  has  exactly  four  divisions. 

COBOL  CHARACTER  SET.    The  following  symbols  may  be  used  in  writing  COBOL: 


SYMBOL 

MEANING  S 

0,1, ...9 

digi  ts 

A,B,. . .Z 

1 etters 

+ 

plus  sign 

minus/hyphen 

sign 

* 

asterisk 

/ 

slash 

equal  sign 

$ 

currency  sign 

( 

) 

> 

< 


MEANING 

comma 

semicolon 

period 


quotation  mark  (ANSI 
left  parenthesis 
right  parenthesis 
greater  than  symbol 
less  than  symbol 
space  (no  printed  character) 


shows  a  quote  as  ") 
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Characters  Used  in  Words 

The  characters  used  in  words  in  a  COBOL  source  program  are: 
0  thru  9 
A  thru  Z 
-  (hyphen) 

A  word  is  composed  of  a  combination  of  not  more  than  30  characters  chosen 
from  the  character  set  for  words.    The  word  cannot  begin  or  end  with  a  hyphen 

The  following  characters  are  used  for  punctuation: 


PUNCTUATIOH  RULES 

The  following  general  rules  of  punctuation  apply. in  writing  COBOL  source 


1.  A  period,  semicolon,  or  comma,  when  used,  must  not  be  preceded  by  a  space 
but  must  be  followed  by  a  space. 

2.  A  left  parenthesis  must  not  be  followed  immediately  by  a  space;  a  right 
parenthesis  must  not  be  preceded  by  a  space. 

3.  At  least  one  space  must  appear  between  two  successive  words  and/or 
parenthetical  expressions  and/or  literals.    Two  or  more  successive  spaces 
are  treated  as  a  single  space,  except  within  non-numeric  literals. 

4.  An  arithmetic  operator  or  an  equal  sign  must  always  be  preceded  by  a 
space  and  followed  by  a  space. 

5.  A  comma  may  be  used  as  a  separator  between  successive  operands  of  a  state 
ment.    An  operand  of  a  statement  is  shown  in  a  format  as  a  lower  case 


6.  A  comma  or  semicolon  may  be  used  to  separate  a  series  of  clauses  and  is 
used  for  ease  of  reading  as  in  written  English. 

7.  A  semicolon  may  be  used  to  separate  a  series  of  statements.  Example: 
ADD  A  TO  B;  SUBTRACT  B  FROM  C. 


space 
comma 
semicolon 
quotation  mark 


period 
)      right  parenthesis 
(      left  parenthesis 


programs: 


word. 
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Characters  Used  in  Arithmetic  Expressions: 

+  addition 

subtraction 

*  multiplication 

/  division 

**  exponentiation 

(  left  parenthesis 

)  right  parenthesis 

=  replacement  operator 

NOTE:  When  any  punctuation  mark  is  indicated  in  a  format  (in  this  publication), 
it  is  required  in  the  program. 


MARGINS  AND  THE  COBOL  CODING  SHEET 

When  writing  a  COBOL  program,  the  programer  is  concerned  with  2  margins: 
margin  A  and  margin  B.    Margin  A  encompasses  columns  8  through  11  of  a  coding 
sheet.    Margin  B  encompasses  columns  12  through  72. 

Margin  A  is  used  to  identify  the  different  divisions,  paragraphs,  sections, 
or  ipecial  items  of  a  COBOL  program.    Entries  in  Margin  A  may  continue  through 
column  72,  if  necessary,  and  are  terminated  by  a  period.    Each  statement  or 
clause  should  be  on  a  single  line  (card).    Margin  A  statements  do  not  have  to 
begin  in  column  8,  but  must  begin  before  column  12. 

Army  Standard:    All  entries  that  can  begin  in  Margin  A  must  begin  in  column  8. 

Margin  B  contains  all  the  information  the  programer  wishes  to  include  within 
a  defined  division,  paragraph,  section,  or  special  items  of  the  program. 
Margin  B  statements  do  not  have  to  begin  in  column  12,  but  may  be  written 
anywhere  from  column  12  through  column  72  (see  below). 


EXAMPLE: 


SPECIAL-NAMES. 

C0I  IS  CHAN  1. 

The  word  SPECIAL-NAMES  begins  in  margin  A. 
The  words  C01  IS  CHAN  1  begins  in  margin  B. 


WORD 

A  WORD  is  composed  of  not  more  than  30  characters  from  the  COBOL  character 
set  for  word  formation.    The  space  (blank)  is  not  an  allowable  character  in  a 
word;  the  space  is  a  word  separator.    A  word  is  terminated  by  a  space,  a 
period,  a  right  parenthesis,  a  comma,  or  a  semicolon. 
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Throughout  this  publication,  basic  formats  are  prescribed  for  various  elements 
of  COBOL.    These  general i zed  descriptions  are  intended  to  guide  the  programer 
in  writing  his  own  statements.    They  are  presented  in  a  uniform  system  of 
notation,  explained  in  the  following  paragraphs.    Although  it  is  not  part  of 
COBOL,  this  notation  is  useful  in  describing  COBOL. 


COBOL  WORDS 

1.  All  words  printed  entirely  in  capital  letters  are  reserved  words.  These 
words  have  preassigned  meanings  in  COBOL.    In  all  formats,  words  in 
capital  letters  represent  an  actual  occurrence  of  those  words.    If  any 
such  word  is  incorrectly  spelled,  it  will  not  be  recognized  as  a  reserved 
word  and  will  probably  cause  an  error  in  the  program.    Reserved  words 
cannot  be  used  as  procedure  or  data  names. 

2.  All  underlined  reserved  words  are  required  unless  the  portion  of  the 
format  containing  them  is  itself  optional.    These  are  key  words.    If  any 
such  word  is  missing  or  is  incorrectly  spelled,  it  is  considered  an  error 
in  the  program.    Reserved  words  not  underlined  may  be  included  or  omitted 
at  the  option  of  the  pr..>gramer.    These  words  are  used  only  for  the  sake 
of  readability;  they  are  called  optional  words,  and  when  used,  must  be 
correctly  spelled. 

3.  The  characters  +  -  =        when  appearing  in  formats,  although  not  under- 
lined, are  required  when  such  formats  are  used. 

4„    All  punctuation  and  other  special  characters  (except  those  symbols  cited 
In  the  following  paragraphs)  represent  the  actual  occurrence  of  those 
characters.    Punctuation  is  essential  where  it  is  shown.  Additional 
punctuation  can  be  inserted  according  to  the  rules  for  punctuation 
specified  in  this  publication. 

5.  Words  that  are  printed  in  lower-case  letters  represent  information  to  be 
supplied  by  the  programer.    No  entry  in  lower  case  letters  may  be 
omitted,  unless  it  is  part  of  an  optional  section  or  phrase  which  is 
omitted. 

6.  In  order  to  facilitate  references  to  them  in  text,  some  lower-case  words 
are  followed  by  a  hyphen  and  a  digit  or  letter.    This  modification  does 
not  change  the  syntactical  definition  of  the  word. 

7.  Square  brackets  *([])  are  used  to  indicate  that  the  enclosed  item  may  be 
used  or  omitted  depending  on  the  requirements  of  the  particular  program. 
When  two  or  more  items  are  stacked  within  brackets,  one  or  none  of  them 
may  occur. 

8.  Braces  {\]  )  enclosing  vertically  stacked  items  indicate  that  one  of  the 
enclosed  items  is  obligatory. 
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9     The  ellipsis  (...)  indicates  that  the  immediately  preceding  umt  may 
occur  once,  or  any  number  of  times  in  succession.    A  umt  means  either 
a  single  lower-case  word,  or  a  group  of  lower-case  words  and  one  or  more 
reserved  words  enclosed  in  brackets  or  braces.    If  a  term  is  enclosed  m 
brackets  or  braces,  the  entire  unit  of  which  it  is  a  part  must  be  repeat 
when  repetititon  is  specified. 

10.    Programer  defined  words  are  names  chosen  by  the  programer  to  identify 
program-unique  things  such  as  file  names  or  data  names.    They  should  be 
descriptive  and  clear  to  someone  not  familiar  with  the  program. 

Army  Standard:    Only  Army  standard  abbreviations  in  AR  18-12  may  be  used  in 
programer  defined  words. 


168  7 
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THE  COBOL  LANGUAGE  STRUCTURE 


There  are  four  divisions  in  each  COBOL  program.    Each  is  placed  in  its 
logical  sequence,  each  has  its  necessary  logical  function  in  the  program,  and 
each  uses  information  developed  in  the  divisions  preceding  it.    The  four 
divisions  and  their  sequences  are: 

IDENTIFICATION  DIVISION. 

ENVIRONMENT  DIVISION. 

DATA  DIVISION. 

PROCEDURE  DIVISION. 
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IDENTIFICATION  DIVISION 


The  purpose  of  the  IDENTIFICATION  DIVISION  is  to  give  the  who-what-when-why- 
where-how  of  the  program  to  a  maintenance  programmer.    It  also  identifies  the 
program  to  the  operating  system. 

BASIC  FORMAT: 

IDENTIFICATION  DIVISION. 
PROGRAM- ID.  program- name . 

[AUTHOR.  your  name.]  _  i 

TftSTTO-ATION.       where  the  program  is  wrifcen-J 


'date-written.       the  date  that  coding  began.] 

-    ■  •__  "t^  ^  4» 


DATE-COMPILED.      this  entry  is  completed  by  the  compiler. J 


"SEtURITY.  the  classification  of  the  program.] 

JB^RksT  a  brief  description  of  what  the  program  accomplishes.] 


The  first  words  of  any  COBOL  program  are  IDENTIFICATION  DIVISION. 
IDENTIFICATION  DIVISION  must  begin  in  margin  A: 

IDENTIFICATION  DIVISION. 

Note  that  there  is  one  space  between  IDENTIFICATION  and  DIVISION,  and  that 
IDENTIFICATION  DIVISION  terminates  with  a  period. 

The  only  required  part  of  the  IDENTIFICATION  DIVISION  is  the  PROGRAM-ID  clause, 
Since  "pre  ram^name"  is  in  lower  case  letters,  the  programer  must  make  up  a 
descriptive  name  by  which  his  program  may  be  identified.    All  other 
IDENTIFICATION  DIVISION  entries  help  to  describe  and  document  your  program. 

IDENTIFICATION  DIVISION. 
PROGRAM- ID.  SAMPLE--!. 

Note  that  PROGRAM-ID  is  written  in  margin  A  and  follows  IDENTIFICATION 
DIVISION  which  is  written  in  margin  A.    After  PROGRAM-ID,  there  is  at  least 
one  space  (a  period  must  be  followed  by  one  or  more  spaces)     Then  the 
programer  writes  the  name  of  his  program,  in  this  case,  SAMPLE- I.    i he 
program  name  may  be  placed  anywhere  in  margin  B.    An  alternate  example,  which 
means  exactly  the  same  thing  as  the  first  example,  is  listed  below. 

EXAMPLE : 

IDENTIFICATION  DIVISION. 

PROGRAM-ID.  SAMPO-.E-l. 

All  other  clauses  of  the  IDENTIFICATION  DIVISION.are  optional .    They  may  be 
included  or  deleted  as  desired.    Each  clause  begins  wi  Lli  the  word  AUTHOR, 
INSTALLATION,  DATE-WRITTEN,  DATE-COMPILED,  SECURITY,  or  REMARKS.    Each  is 
followed  by  a  period,  followed  by  any  comment- type  entry,  then  terminated  by 
a  period.    This  entry,  called  a  sentence,  may  be  repeated  as  many  times  as 
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EXAMPLE: 


IDENTIFICATION  DIVISION. 
PROGRAM- ID.  PILPMGT 
AUTHOR.  LT  HUDGIN,  ATSG-D-S; 

INSTALLATION,      USAIA.  FORT  HARRISON,  IN  46216. 
DATE-WRITTEN.      14  AUGUST  1976. 
DATE-COMPILED.  TODAY 
SECURITY.  UNCLASSIFIED. 
♦REMARKS.  THIS  IS  A  SAMPLE  OF  A  COMPLETE  IDENTIFICATION 

*  DIVISION.    ALL  OF  THE  ENTRIES  ARE  INCLUDED  IN  THIS  EXAMPLE, 

*  ALTHOUGH  ONLY  THE  PROGRAM-ID  PARAGRAPH  (WHICH  INCLUDES  THE 

*  PROGRAM-NAME)  IS  REQUIRED. 

Army  Standards:  ^.  I  though  most  entries  are  not  required  by  ANS  COBOL,  it  is  a 
good  practice  to  include  them  for  documentation  purposes. 

PROGRAM-ID:    The  PROGRAM'-ID  will  consist  of  six  positions  constructed  as 
follows : 

Position  Entry 

1  a.    For  a  program  that  is  operational,  this  position  will 

contain  a  'P' . 

b.  For  a  program  that  is  being  tested,  this  position  will 
have  a  'T'. 

c.  If  the  program  's  under  development,  enter  a  'D'  in  this 
position. 

2-3  These  two  positions  identify  the  specific  program  within  a 

system  or  subsystem. 

4-6  The  subsystem's  or  system's  identification  code. 


AUTHOR:    Enter  the  programer's  name  and/or  the  office  symbol  responsible  for 
the  program. 

DATE-COMPILED:    Some  compilers  will  not  properly  place  the  compilation  date 
if  entry  is  blank.    To  avoid  this,  enter  'TODAY*  in  this  area. 

REMARKS:    Some  compiliers  do  not  support  this  paragraph.    To  avoid  errors, 
enter  an  asterisk  (*)  in  column  7  of  every  card  in  this  paragraph.  This 
paragraph  should  give  the  reason  the  program  was  written,  basically  how  it 
works,  any  special  processing  or  techniques  used,  what  all  77  and  01  entries 
in  the  WORKING-STORAGE  SECTION  are  used  for,  and  any  communications  with  other 
programs.    Each  time  a  change  is  made,  the  maintenance  programmer  should  add 
an  enrry  giving  the  date,  his  name,  why  the  change  was  made,  and  what  the 
change  encompassed. 
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ENVIRONMENT  DIVISION 


The  ENVIRONMENT  DIVISION  is  used  for  the  following  purposes: 

a.  To  identify  the  computer  system  to  be  used  (e.g.,  IBM  360-30,  UNIVAC 
1108,  etc.). 

b.  To  identify  the  peripheral  devices  to  be  used  (e.g.,  card  readers. 


d.  To  identify  the  files  to  be  used  by  the  program. 

e.  To  define  the  organization  (sequential,  random,  etc.)  of  each 

f.  To  assign  each  file  to  a  specific  peripheral  device. 

BASIC  FORMAT: 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTIO'N.  _ 
r SOURCE-COMPUTER,  computer-name . J 
rOBJECT-COMPUTER.    computer-name. J 

[SPECIAL-NAMES.        [f unction-name-1  IS  condition-name- IJJ .. . 
INPUt-OUTPirr"SECTION. 

file-contrc5l: 


printers,  tape  drives,  etc.). 


c.  To  give  or  assign  a  logical  name  to  each  peripheral  device  (e.g 
SYS006,  SYS004,  etc.). 


(DOS)* 


SELECT  file- name 
ASSIGN  TO 


(OS)* 


2314 


2400  -  S_  external -name. 
2540R 


*  See  note  on  next  page. 


r 
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*  This  paragraph  by  definition  is  machine  and  operating  system  dependent. 
We  have  provided  examples  of  its  coding  for  the  two  most  common  operating 
systems  in  the  Anny.    No  attempt  is  made  to  limit  this  instruction  only  to 
IBM  hardware  or  software.    Each  manufacturer  has  programing  manuals  available 
to  explain  their  own  implementation  of  this  paragraph.    If  device  independence 
is  desired  when  using  OS,  the  device  model  number  must  be  omitted  from  the 
system  name  and  the  device  class  must  be  UT  even  if  the  file  is  on  a  unit 
record  device  when  the  program  is  executed. 

There  are  2  sections  of  the  ENVIRONMENT  DIVISION:    The  CONFIGURATION  SECTION 
and  the  INPUT-OUTPUT  SECTION.    The  CONFIGURATION  SECTION  specifies  which 
computer  is  to  be  used  to  compile  the  program  (the  SOURCE-COMPUTER), 
which  computer  will  be  used  to  execute  the  program  once  it  is  compiled  (the 
OBJECT-COMPUTER),  and  associates  names  in  the  COBOL  program  with  special  tests 
on  peripheral  devices  used  in  the  program. 

EXAMPLE: 

ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE-COMPUTER.  IBM-36J5-63P. 
OBJECT-COMPUTER.  IBM-360-630. 

In  this  example,  both  the  source  and  object  computers  are  the  same.  The 
descriptions  should  be  of  the  smallest  computer  that  the  program  can  be 
compiled  or  executed  on. 

SPECIAL-NAMES  is  part  of  the  CONFIGURATION  SECTION  and  is  used  if  the 
programer  wishes  to  skip  to  a  particular  line  on  the  printer  page  (for 
example,  to  the  top  of  the  next  page).    The  IBM  1403  printer  has  a  carriage 
control  tape  with  12  channels,  each  of  which  may  have  a  hole  punched  in  it 
to  indicate  where  to  stop  the  paper  if  that  particular  channel  is  searched. 
The  carriage  control  tape  used  for  student  jobs  has  a  punch  indicating  the 
top  of  page  is  on  channel  1  and  the  bottom  of  the  page  is  on  channel  ^)9.  The 
programer  must  specify  a  name  which  will  be  associated  with  the  hole  punched 
in  the  channel  if  he  wishes  to  skip  (slew)  to  that  point  on  the  page.  The 
names  to  be  associated  with  the  channels  are  specified  in  the  SPECIAL-NAMES 
clause: 

Army  Standard:    Both  the  SOURCE-COMPUTER  and  OBJECT-COMPUTER  are  required 
entries. 

SPECIAL-NAMES. 

Cnn  IS  mnemonic-name( . . . ) . 

"C"  means  channel;  nn  is  a  two-digit  number  indicating  which  channel  of  the 
twelve  possible  is  to  be  associated  with  the  name.    The  mnemonic  name  is  the 
name  that  the  programer  gives  to  the  channel.    It  will  be  used  in  the 
PROCEDURE  DIVISION  skipping  to  the  channel  is  desired. 
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EXAMPLE : 

SPECIAL-NAMES. 
C01  IS  CHANl 
C09  IS  CHAN9. 

Here  the  word  CHANl  will  later  be  recognized  as  meaning  skip  to  channel  1  of 
the  carriage  control  tape  on  the  printer.    CHAN9  will  mean  skip  to  channel  09. 

Army  Standards:  The  only  special  names  that  may  be  used  and  their  purpose 
are: 

Special  Name  Purpose 

CHANl  Indicates  the  first  print  line  page  (Channel  1). 

CHAN9  Indicates  the  last  print  line  of  a  page  (Channel  9). 

Channel  1  on  the  Army  standard  channel  tape  is  line  6  on  the  printer  page. 
Channel  9  is  line  66.    On  standard  11"  long  printer  paper  printed  six  lines 
per  inch  that  leaves  one  inch  margins  at  the  top  and  bottom. 

The  FILE-CONTROL  paragraph  of  the  INPUT-OUTPUT  SECTION  is  used  to  tell  the 
system  how  many  files  will  be  used,  what  type  of  peripheral  devices  the  files 
are  on,  the  names  to  be  used  to  refer  to  each  file,  the  organization  of  the 
files,  and  where  the  files  are  located.    Each  file  used  is  specified  at  least 
once  by  the  use  of  a  SELECT  clause  and  its  parts. 

To  tell  the  system  that  a  file  will  be  used,  write  the  word  SELECT 
(following  the  INPUT-OUTPUT  SECTION  and  FILE-CONlROL  cards)  in  margin  B. 
Then  devise  a  name  for  the  file.    This  name  is  written  after  SELECT. 

EXAMPLE  1 : 

INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  MASTER-FILE 

EXAMPLE  2: 

INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  INVENTORY 

In  the  above  2  examples,  the  programer  made  up  the  word  MASTER-FILE  in  the 
first  example,  and  the  word  INVENTORY  in  the  second.    From  this  point  on, 
these  words  must  be  used  whenever  the  programer  wishes  to  do  anything  to  the 
file  (e.g.,  READ  or  OPEN).    The  name  chosen  for  the  file  cannot  be  a  COBOL 
reserved  word. 
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After  the  file  name,  the  programer  writes  ASSIGN  TO  followed  by  a  system 
name.    The  system  name  can  have  two  forms:    one  for  DOS  and  one  for  OS.    A  DOS 
system  name  for  a  file  consists  of  the  logical  unit  assignment  (system  logical 
numbers),  the  class  of  device,  the  model  number  of  the  specific  device,  and 
the  file  organization.    An  OS  system  name  for  a  file  consists  of  the  class, 
the  file  organization,  and  the  external  name. 

In  DOS,  the  system  logical  number  refers  to  a  specific  hardware  device  assigned 
to  that  number  by  JCL  (Job  Control  Language).    It's  value  is  a  number  from 
SYS000  to  SYS243,  depending  on  the  parameters  chosen  during  system  generation. 
DOS  and  OS  JCL  are  discussed  later  in  this  text.    In  OS,  the  external  name 
performs  the  same  function  as  the  system  logical  number  in  DOS.    It  is  limited 
to  from  1  to  8  characters,  must  begin  with  a  letter,  and  contain  no  special 
characters. 

Class  refers  to  the  device's  capability  to  handle  one  or  more  than  one  record 
length.    A  punched  card,  for  example,  is  always  the  same  length;  it  has  80 
characters  represented  on  it  at  all  times.    UNIT-RECORD  (UR)  is  the  class 
used  to  describe  this  type  device.    Even  though  no  punches  are  punched  in  the 
card,  there  are  still  80  characters  there;  the  space  is  a  character  to  the 
computer.    When  read,  therefore,  there  must  be  sufficient  memory  allocated  to 
hold  80  characters,  whether  they  are  spaces  or  any  of  the  other  permissible 
characters  of  the  HOLLERITH  or  EBCDIC  code.    The  same  is  true  when  punching 
a  card,  the  card  punch  must  know  what  character  is  to  be  punched  in  each  of 
the  80  columns.    A  blank  card  to  be  punched  means,  in  effect,  punch  no  holes. 
A  similar  concept  holds  true  for  the  printer  which  must  know  what  character 
is  to  be  printed  in  each  of  132  print  positions.    These  devices,  the  card- 
reader,  card  punch,  and  printer,  are  known  as  UNIT-RECORD  devices.  They 
always  handle  fixed-length  records.    On  the  other  hand,  magnetic  tape  and  disk 
units  are  not  limited  to  just  one  record  length.    These  devices  conform  to 
the  record  length  specified  for  each  particular  job  or  file,  and  when 
accessing  information  sequentially,  they  are  referred  to  as  UTILITY  (UT)  devices 

The  letters  UR  are  used  to  specify  UNIT-RECORD;  the  letters  UT  are 
used  to  specify  UTILITY. 

After  the  class  is  specified,  the  programer  specifies  the  model  number  of  the 
dev  ce  to  be  used  for  the  file.    This  is  the  hardware  model  number  of  the 
peripherals  in  the  machine  configuration  at  the  installation. 

For  an  IBM  360-30  or  360-40,  which  are  the  most  common  Army  configurations. 

The  card  reader  is  specified  by  2540R. 

The  card  punch  is  specified  by  2540P. 

The  disk  is  specified  by  2314. 

The  printer  is  specified  by  1403. 

The  magnetic  tape  is  specified  by  2400. 

The  file  organization  will  always  be  sequential  for  UR  and  UT  devices. 


Sequential  organization  is  specified  by  S. 
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All  of  the  parts  in  the  system  name  are  separated  by  hyphens. 
EXAMPLE-!  (DOS).    A  card  file  (input): 

INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  MASTER-INVENTORY-FILE 

ASSIGN  TO  SYS0jD6-UR-254PR-S. 


«  EXAMPLE-!  (OS). 


INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  MASTER-INVENTORY-FILE 
ASSIGN  TO  UT-S-MASTER. 

The  DOS  example  shows  that  the  name  of  this  file  is  MASTER-INVENTORY-FILE. 
The  system  logical  number  is  SYS0JD6;  the  card  reader  is  a  ""it-record  device, 
thus  UR;  the  device  number  for  the  card  reader  is  254jaR;  and  S  indicates  that 
it  is  a  SEQUENTIAL  file. 

The  OS  example  has  the  same  file  name,  but  the  device  model  number  is  omitted, 
the  class  is  UT,  the  organization  is  sequential,  and  the  external  name  is 
MASTER. 

EXAMPLE-2  (DOS).    An  output  file  on  a  printer: 


INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  LISTING 

ASSIGN  TO  SYS005-UR-14ja3-S. 

EXAMPLE-2  (OS). 

INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  LISTING 

ASSIGN  TO  UT-S-PRINTER.  • 

The  DOS  example  shows  that  the  name  of  the  file  is  LISTING;  the  system  logical 
number  is  SYSj9^)5;  UR  for  UNIT-RECORD;  1403  which  is  the  device  number  for  the 
printer;  and  S  for  SEQUENTIAL  file. 

The  OS  example  has  the  same  file  name,  but  the  device  model  number  is  omitted, 
the  class  is  UT.  the  organization  is  sequential,  and  the  external  name  is 
PRINTER. 

If  a  program  requTrea  2  files,  one  for  input  and  the  other  for  output,  2 
select  statements  would  be  required. 
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EXAMPLE-3  (DOS).  A  program  requiring  2  fi1es--input  from  disk  and  output  on 
a  printer: 

INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  INPUT-FILE 

ASSIGN  TO  SYS006-UT-2314-S. 
SELECT  OUTPUT-FILE 

ASSIGN  10  SYS005-UR-14(33-S. 

EXAMPLE-3  (OS). 

INPUT-OUTPUT  SECTION. 
FILE-CON  I ROL. 

SELECT  INPUT-FILE 

ASSIGN  TO  UT-S-DISK  FILE 
SELECT  OUTPUT-FILE 

ASSIGN  TO  UT-S-PRINTER. 


Note  that  there  is  one  select  statement  for  each  file  in  the  program.  The 
outputs  file  are  similar  to  the  ones  in  Example  2.    For  the  input  file: 


DOS 

The  name  of  the  file  is  INPUT-FILE. 
The  system  logical  number  is  SYS006. 
UT  for  a  UTILITY  device. 
2314  which  specifies  the  type  of 

disk  drive  on  our  system. 
S  for  SEQUENTIAL  file. 

For  the  output  file: 

DOS 

The  name  of  the  file  is  OUTPUT-FILE 
The  system  logical  name  is  SYS005. 
It  is  a  UTILITY  device  (UT). 
The  device  is  an  IBM  1403  printer. 
It  is  a  sequential  file  (S). 


OS 


The  name  of  the  file  is  INPUT-FILE. 
The  device  class  is  UT. 
The  organization  is  sequential .  - 
The  external  name  is  DISK  FILE. 


OS 


The  name  of  the  file  is  OUTPUT-FILE, 
The  device  class  is  UT. 
The  organization  is  sequential. 
The  external  name  is  PRINTER. 


177 
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The  purpose  of  the  DATA  DIVISION  is: 

1.  To  describe  each  file  in  detail. 

2.  Allocate  memory  required  by  the  record  of  each  file. 


3.    Allocate  all  other  memory  needed  by  the  program  for  working  areas 
(scratch  pad). 

This  text  explains  the  DATA  DIVISION  in  3  parts:    the  FILE  SECTION  FD  (file 
description),  the  FILE  SECTION  record  description,  and  the  WORKIN^i-STORAGE 
SECTION. 

DATA  DIVISION. 
FILE  SECTION. 

FD  file-name  -  — 


Army  Standard:    When  more  than  one  clause  is  used  to  describe  a  file,  each 
clause  must  begin  on  a  new  card  beginning  in  column  12. 

The  first  part  of  the  DATA  DIVISION  which  is  described  is  the  File  Description. 
FD  in  margin  A  identifies  that  what  follows  is  a  description  of  one  of  the 
files  identified  by  the  SELECT  clause  in  the  ENVIRONMENT  DIVISION.    After  FD, 
place  the  name  of  the  file  to  be  described  in  margin  B,  followed  by  one  or 
more  of  the  clauses  shown  above,  as  applicable.    The  name  of  the  file  must  be 
identical  to  that  of  the  SELECT  clause. 

The  only  required  clause  is  the  LABEL  clause.    All  others  are  optional.  It 
is  reconimended  that  the  other  clauses  are  used  to  increase  the  efficiency  of 
the  compiler  and  for  documentation. 

All  disk  files  have  standard  labels.    All  unit  record  files  have  omitted 
labels. 

Army  Standard:    All  possible  entries  are  given  for  all  file  descriptions.  ^ 
All  tape  files  must  have  standard  labels  unless  created  on  another  installation 
and  used  as  input. 
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Under  OS  with  no  device  model  number  specified  in  the  SELECT  statement,  the 
label  records  are  always  standard  regardless  of  the  device  to  which  the  file 
is  ultimately  assigned.    When  used  for  magnetic  tape,  labels  may  appear  at  the 
beginning  and  the  end  of  the  file  and  are  used  to  prevent  the  wrong  program 
from  accessing  the  information  on  the  tape.    When  used  for  disk,  labels  are 
used  to  locate  the  beginning  and  end  of  sequential  files.    Since  the  system 
must  know  where  a  sequential  file  begins  and  ends  on  disk,  labels  must  be  used 
on  disk;  however,  they  are  not  mandatory  for  tape  files.    It  is  good  programing 
practice  to  always  use  labeled  files.    This  provides  another  check  for  the 
validity  of  the  input  or  output  data.. 

EXAMPLE  (DOS  &  OS): 

FILE  SECTION. 
FD  MASTER-IN 

LABEL  RECORD  IS  STANDARD. 

In  this  case,  MASTER-IN  was  the  name  assigned  to  a  file  in  a  SELECT  statement 
in  the  ENVIRONMENT  DIVISION.  This  file  was  assigned  to  either  a  magnetic 
tape  file  or  a  disk  file,  if  under  DOS.  AVI  files  have  standard  labels  under 
OS.  The  LABEL  RECORD  IS  STANDARD,  which  means  to  the  system,  generate  stand- 
ard labels  according  to  my  JCL  instmctions  for  output  files  or  use  the  exis- 
ting standard  labels  for  input  files. 

If  the  file  called  MASTER-IN  was  assigned  to  a  card  reader-,  the  FD  would 
appear  as: 

EXAMPLE  (DOS): 

FILE  SECTION. 
FD    MASTER- IN 

LABEL  RECORD  IS  OMITTED. 

EXAMPLE  (OS): 

FILE  SECTION. 
FD    MASTER- IN 

LABEL  RECORD  IS  S.'ANDARD. 

Since  LABEL  RECORDS  can  be  used  only  for  magnetic  tape  and  disk  under  DOS, 
they  must  be  OMITTED  for  card  readers,  punches,  and  printers.    They  may  also 
be  OMITTED  under  DOS  for  magnetic  tape  if  a  non-labeled  tape  is  being  used. 
OS  always  uses  standard  labels  with  device  independence. 

EXAMPLL  (DOS): 

FILE  SECTION. 
FD  PRINTOUT 

LABEL  RECORD  IS  OMITTED. 
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EXAMPLE  (OS): 

FILE  SECTION. 
FD  PRINTOUT 

LABEL  RECORD  IS  STANDARD. 

DOS:    In  this  case,  a  file  called  PRINTOUT,  assigned  to  the  1403  printer  in 
the  ENVIRONMENT  DIVISION,  is  described  in  its  file  description  so  that  LABtL 
RECORDS  ARE  OMITTED. 

OS:    All  devices  have  standard  labels  in  OS  regardless  of  the  class. 

There  are  other  parts  of  the  FD  which  may  be  used  to  reduce  compile  time  for 
your  program,  and  for  more  sophisticated  programs,  to  reduce  execution  time. 
(See  Appendix  C,  ANSI  COBOL  MANUAL.) 

The  BLOCK  CONTAINS  clause  specifies  the  blocking  factor— that  is,  how  many 
records  are  to  be  read  or  written  at  once  for  each  physical  input/output 
operation.    The  BLOCK  CONTAINS  must  be  equal  to  1  or  omitted  for  unit-record 
devices  (card  readers,  card  punches,  and  printers),  because  a  card  ts 
physically  read,  punched  or  a  line  is  written  each  time  the  COBOL  program 
READS  or  URITEs  a  loaical  record.    Physical  READs  a.id  WRITES  take  a  lot  of 
tihie  v'hen  compared  to  the  internal  speed  of  the  computer.    So  the  programer, 
when  usina  utility  devices,  can  lump  together  several  logical  rt^ords  into  one 
physical  record  before  it  is  read  or  written.    This  cuts  down  the  .number  of 
READS  and  WRITES  on  a  device  and  speeds  up  the  execution  of  the  program.  The 
BLOCK  CONTAINS  clause  is  needed  in  this  case  to  tell  the  compiler  that  several 
logical  records  will  be  read  or  written  each  time  the  system  performs  a  . 
physical  READ  or  WRITE  to  or  from  a  device.    As  far  as  the  programer  is  con- 
cerned, nothing  chanaes  in  the  program  except  the  addition  of  the  BLOCK 
CONTAINS  clause  indicating  how  many  of  the  logical  records  are  to  be  included 
in  the  block.    On  unit  record  devices,  the  logical  record, must  be  the  same 
size  as  the  physical  record.    If  BLOCK  CONTAINS  is  omitted,  the  system  defaults 
to  a  blocking  factor  of  1. 


EXAMPLE: 


FILE  SECTION. 
FD  TAPE-FILE 

BLOCK  CONTAINS  3  RECORDS 

LABEL  RECORD  IS  STANDARD. 

This  entry  would  not  write  to  the  file  called  TAPE-FILE  until  3  records  had 
been  built  up  into  a  block  during  processing  via  WRITE  statements.    If  the 
file  is  input,  then  a  block  of  3  logical  racord".  is  read  and  one  is  given  to 
the  program  each  time  a  READ  statement  for  the  rile  is  executed. 

The  RECORDS  CONTAINS  clause  specifies  the  length  of  each  logical  record  in 
the  file.    A  card,  for  example,  contains  80  characters.    Thus,  the  programer 
may  write: 
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I  no 

FILE  SECTION. 
FD  TAPE-FILE 

RECORD  CONTAINS  80  CHARACTERS 

LABEL  RECORDS  OMITTED. 

Note  that,  in  the  BLOCK  CONTAINS  clause,  the  programer  may  specify  the 
number  of  characters  instead  of  the  number  of  records.    If,  on  magnetic  tape, 
each  record  was  40  characters  in  length,  the  FD  could  be  written. 

FILE  SECTION. 
FD  TAPE-FILE, 

BLOCK  CONTAINS  120  CHARACTERS, 

LABEL  RECORDS  OMITTED. 

or 

FILE  SECTION. 
FD  TAPE-FILE, 

BLOCK  CONTAINS  3  RECORDS, 

LABEL  RECORD  IS  OMITTED. 

or 

FILE  SECTION. 
FD  TAPE-FILE, 

BLOCK  CONTAINS  120  C'iARACTERS, 

RECORD  CONTAINS  40  CHARACTERS, 

LABEL  RECORD  IS  OMITTED. 

NOTE:    Commas  have  no  effect  on  the  mea-  <na  of  anything  written.  The 

programer  may  use  either  or  both  ..ECORD  CONTAINS  or  BLOCK  CONTAINS. 
Label  records  may  be  either  STANDARD  or  OMITTED  for  tape  files, 
depending  on  the  desires  of  the  programer.    The  reason  that  the 
RECORD  CONTAINS  clause  may  be  omitted  is  that,  following  the  FD  clause, 
COBOL  requires  that  the  record  for  the  file  be  described  in  detail. 
The  compiler  cat.,  therefore,  obtain  this  information  from  the  descrip- 
tion of  the  record  (discussed  after  the  FD  clause  in  this  text). 

The  DATA  RECORD  clause  is  used  to  give  a  name  to  the  record  for  a  file.  It 
is  the  record  which  must  be  placed  in  memory;  therefore,  the  description  of 
the  recoru  is  used  to  allocate  storage.    To  initially  specify  what  the  record's 
name  shall  be,  the  programer  uses  the  DATA  RECORD  clause. 

Army  Standard:    To  avoid  duplicate  data  names,  the  data  names  chosen  for 
records  descriptions  should  be  prefixed  by  a  four  character  identifier  record 
and  file  for  that  file.    It  should  be  in  the  form  AANN  where  AA  is  a.,  identifier 
unique  for  the  file  and  NN  is  a  two  digit  number  unique  for  that  record  in  the 
fil-.    The  first  character  of  the  file  identifier  should  specify  whether  the 
fiie  is  input,  output,  or  work  ("I",  "0",  or  "W).    The  second  character 
should  describe  the  type  of  file  (e.g.,  "M"  .''or  master  file,  "T"  for  trens- 
actions  file,  etc.).  i  t-^  < 
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EXAMPLE-!  : 

FILE  SECTION. 

FD  INPUT-FILE 

UBEL  RECORD  IS  OMITTED 

DATA  RECORD  IS  IT01-INPUT-RCD. 

EXAMPLE-2: 

FILE  SECTION. 

FD    MASTER- INVENTORY-FILE 

LABEL  RECORD  IS  STANDARD  ' 

DATA  RECORD  IS  OMJDl -MASTER- 1 NVENTORY-RCD 


In  the  first  example,  the  name  of  the  record  for  INPUT-FILE  is  IW-^PUT-RCD. 
The  prefix  mean,  that  it  is  the  first  ("01")  record  description  of  an  input 
("I")  transacfion  ("T")  file.    In  the  second  example,  the  name  of  the  record 
for  MASTER-INVENTORY-FILE  is  OMISl-MASTER-INVENTORY-RCD.    The  prefix  means  that 
it  is  the  first  ("01")  record  description  of  an  output  ("0")  master  ("M")  file 


In 


the  entire  FD,  there  is  only  one  period-the  one  at  the  end  of  all  entries 


RECORD  DESCRIPTIONS 

A  record  is  described  by  placing  '01'  in  margin  A,  fon<.^wed  by  the  name  of  the 
recoH  in  margin  B,  followed  by  a  description  (a  PICTURE)  of  the  record, 

EXAMPLE: 

FILE  SECTION. 
FD  MASTER-FILE 

LABEL  RECORD  IS  STANDARD 

DATA  RECORD  IS  IM01 -MASTER-RCD. 
01    IM01-MASTER-RCD  PICTURE  IS  X(100). 

In  ^■he  above  example,  IM01 -MASTER-RCD  is  the  name  of  the  record  for  MASTER- 
FILE     The  prefix  means  that  it  is  the  first  ("01")  record  description  of  an 
input  ("I")  master  ("M")  file.    Since  the  label  record  is  STANDARD,  this  file 
mu?f  either       on  a  disk  or  magnetic  tape  file.    The  line  which  begins  with 
01  (wh1'•^^  is  called  a  level  number  is  used  to  allocate  storage  (memory)  for 
the  record  called  IM01 -MASTER-RCD.    In  this  case,  IM01 -MASTER-RCD  has  a 
length  of  100  (there  are  100  characters  in  the  record). 

PICTURE  CLAUSE. 

The  PICTURE  clause  is  used  to  allocate  memory.    There  are  4  types  of  infor- 
mation which  a  PICTURE  clause  describes: 
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an  alphanumeric  field,  designated  by  X's. 
an  alphabetic     field,  designated  by  A's. 

a  numeric  field,  designated  by  9'f  and  optionally  a  P,  S,  and/or  V. 

an  edited  field,  designated  by  a  l.  )mbination  of  the  characters 

Z  .  ,  *  $  -  +  S  V  B  CR  and  DB. 

Army  Standard:    (1)  The  PICTURE  clause  must  be  punched  beginning  in  column  48. 

(2)  PICTURE  is  preferred  abbreviated  as  PIC. 

(3)  When  more  than  one  clause  is  used  to  describe  a  data  item, 
each  clause  must  begin  on  a  new  card  beginning  in  column  40. 

An  alphanumeric  field  (X)  can  contain  any  legal  EBCDIC  character.  An 
alphanumeric  literal  (also  called  nonnumeric  literal)  is  a  character  or 
series  of  characters  enclosed  in  quotes  and  is  handled  as  if  it  were  an  X 
(alphanumeric)  field.    For  the  continuation  of  an  alphanumeric  literal,  use 
all  columns  through  column  72  on  the  current  card,  release  the  card,  and  punch 
a  dash  (-)  in  column  7  of  the  next  card.    The  alphanumeric  literal  is  then 
continued  by  placing  a  quote  somewhere  in  margin  B  and  continuing  the  literal 
after  the  quote  as  though  no  continuation  had  been  done.    It  is  finished  as  a 
normal  alphanumeric  literal  with  a  quote  and  period  following  the  end  of  the 
alphanumeric  literal. 

A  numeric  field  (9)  is  the  only  field  which  can  be  used  in  mathematical 
computations  or  tests  and  cannot  contain  any  non-numeric  characters. 

An  edit  field  is  designed  to  edit  a  numeric  or  alphanumeric  field  (e.g.,  put 
in  dollar  signs,  decimal  points,  commas,  blanks,  etc.) 

In  the  example : 

01    0MJ51-MASTER-RCD  PIC  X(ljap). 

OM01 -MASTER-RCD  is  described  as  ail  alphanumeric  field  which  can  hold  10J9 
characters.    These  characters  can  be  any  legal  EBCDIC  character,  including 
any  letter  of  the  alphabet,  zero  thru  nine,  blanks,  and  any  special  characters 
such  as  commas,  periods,  asterisks,  etc. 

In  order  to  refer  to  specific  parts  of  a  whole  record,  the  record  is  "broken 
down"  into  smaller  parts. 

EXAMPLE:    A  punched  card  contains  the  name  of  an  individual  in  columns  1-20: 

the  individual's  age  in  columns  21-23; 

spaces  in  columns  24-80. 

To  describe  this  card,  the  programer  breaks  the  record  into  parts,  using  a 
higher  level  number  to  indicate  that  NAME,  for  example,  is  part  of  CARD-REC. 
The  same  holds  true  for  AGE  and  FILLER.    NOTE:    Level  numbers  indicate  the 
hierarchy  of  data  within  a  record.    The  range  is  01  through  49.    Level  01  is 
highest  level  and  indicates  a  record  in  the  FILE  SECTION.    The  higher  the 
value  of  the  number,  the  lower  the  level  indicated.    A  field  of  a  record  may 
be  assigned  level  number  3.    Its  subfields  may  be  assigned  level  number  4. 
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Level  numbers  need  not  be  consecutive,  but  must  be  sequential.    The  record 
level,  must  always  be  01. 

Army  Standard:    Subordinate  data  items  of  a  record  description  all  wiH  be 
prefixed  by  the  record  prefix.    This  identifies  them  uniquely  throughout  the 
program.    A  fifth  character  may  be  added  between  the  second  and  third  char- 
acters if  two  files  may  fia^  ^  the  same  prefix,  e.g.,  two  input  master  tiles 
may  be  prefixed  by  IMljai  and  IMP.fcl  respectively. 

FILE  SECTION. 
PD  CARD-FILE 

LABEL  RECORD  IS  OMITTED 
DATA  RECORD  IS  IT01 -CARD-RCD. 
01  IT01-CARD-RCD. 

05    rr01  -NAME 

05    IT01 -AGE 

05  FILLER 


PIC  X(20). 
PIC  999. 

PIC  X(57) 


In  the  above  example,  IT01-NAME,  IT01-AGE,  and  FILLER  are  all  part  of 
IT01-CARD-RCD,  because  the  level  number  05  is  lower  than  01.    All  numbers 
except  01,  (which  is  discussed  later)  appear  in  margin  B.    Note  that  the 
number  in  parenthesis  (called  a  duolication  factor)  indicates  the  number  of 
Limes  the  preceding  character  is  to  be  repeated.    The  above  example  could  be 
written  without  the  duplication  factor: 

FILE  SECTION. 
FD  CARD-FILE 

LABEL  RECORD  IS  OMITTED 

DATA  RECORD  IS  IT01 -CARD-RCD . 
01     IT01 -CARD-RCD. 

05  IT01-NAME 

05    IT01 -AGE 

05  FILLER 

05  FILLER 


PIC  XXXXXXXXXXXXXXXX. 
PIC  999. 

PIC  XXXXXXXXXXXXXXXXXXXXXXXXXX. 
PIC  XXXXXXXXXXXXXXXXXXXXXX. 


Notice  that  the  FILLER  with  a  length  of  57  characters  had  to  be  broken  into 
two  pieces.    That  is,  the  number  of  characters  used  to  represent  the  PICTURE 
cannot  be  longer  than  30  characters,  not  the  number  of  characters  that  PICTUR 
actually  describes. 

If  a  level  is  to  be  broken  down  into  smaller  parts,  it  contains  no  PICTURE 
clause  and  is  referred  to  as  a  group  item.    The  length  of  a  group  item  is  the 
sum  of  its  subordinate  items.    To  break  IT01-NAME  down  into  a  first  name  fiel 
and  a  last  name  field,  the  programer  could  write: 


01    IT01 -CARD-RCD. 
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05 


05 
05 


IT01 -NAME. 
10    IT01 -FIRST-NAME 
10    I T01 -LAST-NAME 
IT01 -AGE 
FILLER 


PIC 
PIC 
PIC 
PIC 


X(i0) 
X(10) 
9(3). 
X(57) 
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IT01-NAME  IS  now  a  group  item  and  is  still  equal  to  a  length  of  20  characters 

because  its  parts'  lengths  add  up  to  20.    In  like  manner,  IT01 -CARD-RCD  is 

equal  in  length  of  80  because  its  parts'  lengths  add  up  to  80. 

The  DATA  RECORD  clause  need  not  be  specified  because  the  01  entry  is^  the 
record  name  and  is  implied  just  by  being  under  its  respective  FD.    It  is  good 
programing  practice  to  include  it. 

Army  Standard:    As  level  numbers  increase  in  record  descriptions,  they  will 
go  01,  05,  10,  etc.    Columns  for  each  level  to  begin  in  are  8,  12,  14,  16, 
etc..  out  to  column  24.    In  no  case  wi""!  any  level  number  be  punched  to  the 
right  of  column  24. 

WORKING-STORAGE  SECTION. 

The  purpose  of  the  FILE  SECTION  is  to  describe  the  files  to  be  used  in  the 
program  and  to  allocate  memory  required  for  the  records  of  each  of  the  files. 
The  WORKING-STORAGE  SECTION  is  used  to  allocate  all  memory  needed  for  holding 
any  data  other  than  records  described  in  the  FILE  SECTION.    All  storage  in 
the  FILE  SECTION  is  transient.    When  a  record  is  read,  the  information  that 
was  contained  in  the  record  area  of  the  memory  before  the  READ  statement  ic 
gone  forever.    When  a  reccrd  is  written,  the  information  that  was  put  in  the 
record  area  of  the  memory  's  gone.    WORKING-STORAGE,  on  the  other  hand, 
is  permanent  storage.    Variables  in  this  area  only  change  when  the  program 
physically  moves  a  new  value  into  them.    WORKING-STORAGE  should  be  used  for 
constants;  e.g.,  headers,  footers,  holding  areas,  counters,  and  anything  that 
needs  to  be  kept  around  during  the  execution  of  the  program.    WORKING -STORAGE 
is  divided  into  two  areas:    the  77's  area  and  the  01 's  area.    Each  of  these 
will  be  described  in  detail  later.    Because  these  areas  are  permanent  storage, 
the  compiler  will  allow  you  to  initialize  them  to  a  given  value.    The  record 
areas  in  the  FILE  SECTION  cannot  be  initialized  by  the  compiler  since  the 
areas  change  each  time  an  input  or  output  operation  takes  place. 

Army  Standard:    All  data  names  in  the  WORKING-STORAGE  SECTION  are  prefixed 
by  the  characters  WS-. 

EXAf^PLE: 

WORKING-STORAGE  SECTION. 

PIC  S9(4) 
USAGE  IS  COMP 
VALUE  IS  ZEROS 
SYNCHRONIZED. 

PIC  X(64) 
VALUE  IS  SPACES. 

PIC  X(69) 
VALUE  IS  'TITLE'. 


J  85 
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77  WS-LINE-COUNT 

01  WS-HEADINGrLINE. 
05  FILLER 

05  FILLER 


o 

ERIC 

"War  ST  18-150 


115 

A  77  data  item  is  normally  used  for  counters  and  ^o^^  areas.    All  77  items 
appear  iLediately  after  WORKING-STORAGE  SECTION  and  before  the  first  01 
record  entry.    They  are  always  elementary  items  and  therefore  cannot  be 
subdivided  with  larger  numbers  like  78.    In  the  example  above,  a  77  item 
named  WS-LINE-COUNT  is  defined  and  initialized  to  a  value  of  zero.    The  other 
aref  in  WORHNG-STORAGE  is  the  01  area.    This  area  contains  a  series  f 
arouD  or  elementary  items.    The  01  group  items  may  be  broken  down  in  a  manner 
Similar  to  the  record  descriptions  in  the  FILE  SECTION     In  the  example  above, 
a  group  item  named  W5-HEADING-LINE  is  defined  then  broken  down  into  two 
FTLlFRs     The  first  FILLER  simply  takes  up  64  characters  of  storage  and 
init  afizelthl^lo  spaces.    T^e^second  FILLER  takes  "P?^  characters  of 
storage  and  initializes  the  first  5  to  the  characters  TITLE.    The  other  64 
characters  of  the  69  are  initialized  to  spaces.    Use  of  the  value  clause  will 
be  described  in  detail  later.    All  items  written  as  77  entries  can  also  be 
written  as  0Ts.    01 's  can  be  elementary  or  group  items. 


EXAMPLE: 

77  WS-LINE-COUNT 
77  WS-PAGE-COUNT 
77    WS-PERSON -COUNT 


Ul^AGE 
VALUE 
SYNC. 

USAGE 
VALUE 
SYNC. 

USAGE 
VALUE 
SYNC. 


PIC  S9(4) 
IS  COMP 
IS  ZEROS 

PIC  S9(4) 
IS  COMP 
IS  ZEROS 

PIC  S9(4) 
IS  COMP 
IS  ZEROS 


This  could  be  coded  as 


01    WS-COUNTERS . 

05  WS-LINE-COUNT 


05  WS-PAGE-COUNT 


05  WS-PERSON-COUNT 


USAGE 
VALUE 
SYNC. 


USAGE 
VALUE 
SYNC. 

USAGE 
VALUE 
SYNC. 


PIC  S9(4) 
IS  COMP 
IS  ZEROS 

PIC  S9(4) 
IS  COMP 
IS  ZEROS 

PIC  S9(4) 
IS  COMP 
IS  ZEROS 
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or  also  as: 

PIC  S9{4) 
USAGE  IS  COMP 
VALUE  IS  ZEROS 
SYNC. 

PIC  S9(4) 
USAGE  IS  COMP 
VALUE  IS  ZEROS 
SYNC. 

PIC  S9(4) 
USAGE  IS  COMP 
VALUE  IS  ZEROS 
SYNC. 

Army  Standard:    The  clauses  incl'jded  witij  a  data  item  description  should  be 
in  the  following  order: 

REDEFINES 
OCCURS 

PICTURE  (PIC) 
USAGE 
VALUE 
JUSTIFIEIJ 

SYNCHRONIZED  (SYNC). 

All  clauses  mentioned  above  will  be  described  later  in  detail. 

All  three  methods  yield  the  same  result  as  far  as  defining  the  data  items  and 
making  them  available  for  use  in  the  PROCEDURE  DIVISION.    The  difference  lies 
in  the  resultant  storage  allocation.    It  is  enough  for  the  beginning  programer 
to  know  that  for  this  type  of  data  item  the  77  is  the  most  efficient  and 
preferable  of  the  three. 

If  the  programer  needs  a  numeric  field  and  if  that  field  will  only  be  used 
for  mathematical  computation  (not  part  of  an  input  or  output  record,  i.e., 
1 inecounter ) ,  the  programer  may  specify  that  the  USAGE  of  the  numeric  field 
is  COMPUTATIONAL.    This  may  be  abbreviated  as  COMP.    COMP  fields  are  much 
more  efficient  for  integer  arithmetic  than  simple  PIC  9  fields.    You  may  not 
put  in  a  V  in  the  PICTURE.    To  print  these  fields  is  very  time  consuming, 
therefore,  these  should  only  be  used  for  internal  program  counters.    If  the 
procramer  chooses  to  specify  COMPUTATIONAL  (for  efficiency  purposes),  he 
should  guarantee  that  this  field  begin  on  a  correct  boundry  (A  COMPUTATIONAL 
field,  on  IBM  SYSrEM/360,  is  a  numeric  field  which  sl.ould  begin  either  on  a 
half  or  full  word  boundry).    To  direct  thai:  fchis  field  is  to  start  on  a 
correct  boundry,  the  programer  specifies  SYNCHRONIZED  Iwhich  may  be  abbrevi- 
ated SYNC).    See  the  above  example.",  for  thii. 

A»*my  Standard:    SYNCHRONIZED  and  COMPUTATIONAL  are  preferred  to  be  abbreviated. 

NOTE:    A  numeric  field  which  is  COMPUTATIONAL  must  include  S  (sign)  as  the 
o 
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0  WS-LINE-COUNT 

01  WS-PA6E-C0UNT 

01    WS-PERSON-COUNT  • 


/77 

leftmost  character  in  the  picture  clause. 

If  SYNCHRONIZED  is  used  to  describe  a  field  which  does  not  need  to  be  aligned 
on  a  bound? V  (e.g..  PICTURE  X),  it  is  ignored. 
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In  the  following  examples,  WS-AGE,  not  being  a  COMPUTATIONAL  field,  does  not 
have  to  be  aligned  on  any  boundry;  thus  SYNCHRONIZED  is  ignored. 

EXAMPLE: 

01  WS-CARD-K-D. 
05  WS-NAM*^. 

10    WS-LAST-NAME  PIC  X(10). 

10    WS-FIRST-NAME  PIC  X(10). 

05    WS-AGE  PIC  999 

SYNC. 

If  WS-AGE  were  not  to  be  used  as  either  a  mathematical  computation  in  the 
program  or  a  numeric  edited  field  on  output,  it  could  be  defined  as  an  alpha- 
numeric (X)  field: 

WS-AGE  PIC  X(3). 

Note  that  each  level  entry  ends,  with  a  period. 

Any  elementary  item  in  WORKING-STORAGE  (item  with  a  PICTURE)  may  be  assigned 
an  initial  valut  via  the  VALUE  IS  clause.    Group  items  cannot  be  assigned  a 
value  and  any  data  item  under  a  REDEFINES  clause  cannot  have  a  VALUE. 
REDEFINES  is  discussed  in  detail  later.    The  only  thing  to  keep  in  mind  when 
assigning  a  VALUE  to  something  is  to  remember  how  that  thing  "''s  described  in 
its  PICTURE.    Numeric  items  cannot  be  assigned  an  alphanumeric  vALUt.  Like- 
wise, alphanumeric  items  should  not  be  assigned  a  numeric  literal  VALUr; 
however,  this  is  more  acceptable  than  the  first  case.    For  example,  one  would 
not  want  to  describe  a  counter  as  PIC  999  then  try  to  initialize  that  counter 
to  spaces.    Spaces  are  not  numbers  and  will  not  compute.    COBOL  has  made 
things  a  little  easier  for  programers  to  initialize  variables.    There  exist 
a  number  of  reserved  words  that  r^ 'Tesent  specific  values  when  associated  with 
a  data  item.    ZEROS  is  used  with  numeric  PICTURES.    SPACES  is  used  with 
alphanumeric  PICTURES. 

EXAMPLES  (Not  in  the  order  that  they  would  be  in  a  program): 


01 

WS- 

•BLANK-LINE 

PIC  X{133) 

VALUE 

IS 

SPACES. 

01 

WS- 

•COUNTER 

PIC  9(3) 

VALUE 

IS 

ZEROS. 

77 

WS- 

•LINE-COUNT 

PIC  S9(4) 

VALUE 

IS 

ZEROS. 

01 

ws- 

•TITLE"! 

PIC  X(5) 

VALUE 

IS 

'TITLE' . 

77 

ws- 

•PAGE-COUNT 

PIC  999 

VALUE  IS  0. 
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The  first  example  defines  a  133  character  block  of  memory  and  initializes  it 
to  spaces.    The  second  example  defines  a  3  character  numeric  data  item  and 
in-Jtializes  it  to  zeros.    The  third  example  defines  a  signed  numeric  variable 
of  4  characters  and  initializes  rc  to  zeros.    The  S  in  front  of  the  9 
indicates  that  this  variable  may  be  negative  or  Positive     The  jbsence  of  an 
S  indicates  that  this  variable  will  always  be  positive  and  any  value  that  is 

Lved  to  that  item  is  made  positive.    The  fourth  f  ??P|f,?^^^i;^?/,^,^^,?^^Sses 
alphanumeric  item  and  is  initialized  to  a  value  of  'TITLE'.    This  exampe  uses 
another  form  of  initialization:    the  literal.    Literals  can  be  either  alpha ^ 
numeric  (enclosed  in  quotes)  for  X  PICTURES  or  numeric  for  9's  PICTURES 
PICTURES  are  described  in  detail  in  the  next  section.    If  a  nu-neric  PICTURE 
has  an  S  and  a  numeric  literal  is  used,  then  that  numeric  literal  must  have  a 
+  or  -  in  front  of  it. 

EXAMPLE: 

77    LINE-COUNT  PIC  S9(4) 

USAGE  IS  COMP 


VALUE  IS  +im 


SYNC. 


It  is  important  to  remember  that  a  literal,  whether  numeric  or  alphanumeric. 
Cannot  exceed  the  Ungth  of  the  associated  PICTURE.    It  was  'Pe^tioned  before 
that  a  numeric  valu-  r.^ould  not  be  assigned  to  an  alphanumeric  PICTURE.  ZuROS 
cannot  be  associated  with  an  X  PICTURE.    However,  the  following  is  leoal  an. 
desirable  sometimes: 

EXAMPLE: 

77  NUMERIC-LITERAL 

^    .      VALUE  IS  '0123456789'. 

This  example  defines  a  10  character  alphanumeric  daca  item  and  initializes  it 
to  the  character  string  jZ)123456789.    Anything  placed  withm  the  quotes  of  the 
VALUE  clause  in  an  alphanumeric  literal  is  legal  and  allowable.    They  are  just 
another  string  of  characters  as  far  as  the  compiler  is  shoula 
be  remembered  that  one  still  cannot  do  arithmetic  with  the  above  exemple 
because  the  PICTURE  is  alphanumeric.    If  the  literal  used  with  an  alphanumeric 
item  is  shorter  than  the  PICTURE,  the  Literal  is  placed  in  the  left  of  the 
field  and  padded  to  the  right  with  spaces. 

RESTRICTION  OF  THE  VALUE  CL/..5E:    IT  CAN  ONLY  BE  USED  IN  THE  WORKING-STO^J\GE 
SECTION;  IT  CANNOT  BE  USED  JN  THE  FILE  SECTION. 

Numeric  literals  may  contain  numeric  digits  (0  thru  9),  a  sig^  i^^Je  PICTURE 
clause  has  an  S  and  a  decimal  point  to  indicate  proper  decimu.  point  alignment, 
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EXAMPLES: 


77  WS-PA6E-C0UNTER 
77  WS-TAX-RATE 
77  WS-TOTAL-TAX 


PIC  999 
VALUE  IS  1 . 

PIC  SV99 
VALUE  IS  +.18. 

PIC  S9(4}V99 
VALUE  IS  +0. 


Note  that  even  when  the  literal  has  a  decimal  point  in  it,  a  period  still 
ends  the  data  item  description  giving  two  periods  in  the  description. 

If  the  literal  used  with  a  numeric  PICTURE  is  shorter  than  the  PICTURE,  then 
the  literal  is  placed  in  the  right  of  the  field  and  padded  to  the  left  with 
zeros.    The  only  exception  to  this  is  when  a  V  is  included  in  a  numeric 
PICTURE. 

EXAMPLE: 

77    WS-TAX-RATE  PIC  SV99 

VALUE  IS  +.23. 
77    WS-NET  :^AY  PIC  S9(5)V99 

VALUE  IS  +25. 

In  the  first  example,  TAX-RATE  is  defined  as  a  two  character  numeric  variable 
with  the  implied  decimal  point  to  the  left  of  the  two  digits.    There  is  no 
actual  decimal  point  in  the  field,  but  arithmetic  is  done  as  though  it  e^<isted. 
Any  number  moved  to  this  field  will  be  adjusted  so  the  implied  decimal  point 
is  in  the  appropriate  place.    For  example,  if  one  moved  the  integer  33  to 
WS-TAX-RATE,  WS-TAX-RATE  would  have  zeros  in  it  because  33  implied  33.00  and 
WS-TAX-RATE  only  has  places  for  the  numbers  to  the  right  of  the  decimal  point. 
Howcfver,  if  one  moved  33.25  to  WS-TAX-RATE,  WS-TAX-RATE  would  contain  25  with 
the  implied  decimal  point  to  the  left  of  the  numbers.    Decimal  points  are  not 
numbers  so  they  cannot  be  physically  in  the  field  that  has  the  number  being 
used  in  the  computation.    The  V  is  used  only  for  adjusting  the  significance 
of  the  digits.    If  it  is  possible  for  a  move  or  computation  to  result  in 
losing  high  order  digits,  a  message  will  be  printed  in  the  error  listing 
warning  the  programer  of  the  possibility.    In  the  second  example,  WS-NET-PAY 
i'i  c^fined  as  having  seven  characters  of  memory  and  is  initialized  to  a  value 
of  00J3250J3  with  the  right  two  digits  implied  to  be  decimals.    Notice  thr.t 
after  the  adjustment  v^-as  made  for  the  decimal  point,  the  field  was  padded  in 
both  direc"M"ons  with  zeros. 


EDITED  FIELDS 

An  EDIT  field  is  designed  to  put  symbols  such  as  $,.*+-  in  the  correct 
place  to  make  a  numeric  field  more  understandable.    The  following  symbols  may 
appear  in  a  report  field: 

^jUst  1:    S  V  9 
ERXCst  2:    Z  ,$.  +  -*  B  CR  DB  . 
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If  one  or  more  symbols  from  List  2  are  used  in  a  PICTURE  clause,  the  field 
tdcoires  a  numeric  EDIT  field  and  cannot  be  used  in  any  mathematical  computation. 
If  only  the  svjnbols  in  List  1  are  used,  the  field  remains  a  numeric  field  and 
may  be  used  in  any  mathematical  computation.    The  only  way  to  get  information 
into  a  EDIT  field  is  to  MOVE  a  numeric  field  TO  an  EDIT  field  (this  instruction 
is  given  in  the  PROCEDURE  DIVISION).    Usually  EDIT  fields  are  used  as  part  of 
an  oi'*;put  description  for  a  print  file. 

CHARACTER  MEANING 

Z      Zero  supress  non-si gifi cant  leading  zeros. 

Put  a  comma  here  if  there  are  any  significant  digits  to  the  left. 

$       If  one  occurrence,  put  a  dollar  sign  here;  if  multiple  occurrences, 
put  a  dollar  sign  to  the  left  of  the  first  significant  digit. 

Decimal  point. 

+      Print  a  plus  sign  if  the  number  moved  into  the  field  is  positive; 
print  a  minus  sign  if  the  field  is  negative. 

Print  a  s^  -ce  if  the  number  moved  into  the  field  is  positive;  print 
a  minus  sign  if  the  fiald  is  negative. 

*       Check  protection:    replace  non-significant  leading  zeros  with 
asterisks. 

V       Implied  decimal  position.    This  does  not  take  up  a  print  position 
or  a  column  on  input. 

S       Keep  track  of  the  sign  for  numeric  fields  (do  not  use  S  if  any 
character  from  list  2  appears  in  tho  PICTURE  clause). 

B       Generate  a  blank  wherever  it  is  inserted. 

CR     Prints  two  spaces  if  the  value  of  the  numLp.r  moved  inv.o  the  field 
is  positive.    Prints  as  CR  if  the  value  is  negative. 

DB     Prints  two  spaces  if  the  value  of  the  number  moved  into  the  field 
is  positive.    Prints  as  DB  if  the  value  is  negative. 
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EXAMPLES  OF  EDITED  MOVES: 


PICTURE 

VALUE  OF  DATA 

EDITED  RESULT 

V's  are  shown  for  explanation  only 

(t*  it*  (t*  rf*  fy/y 

V12 

&  TO 

$.  iZ 

$$,$$9.99 

500V25 

$500. 25 

$$,$$9.99 

1500V25 

$1 ,500.25 

$Z,ZZ9.99 

1500V25 

$1  ,5013.25 

$Z,ZZ9.99 

-V25 

$  0.25 

$Z,ZZ9.99- 

-V35 

$  0.25- 

$Z,ZZ9.99- 

1V50 

$       1 .50 

$*,**9.99- 

25V75 

5***25.75 

$*,**9.99+ 

A  r*i  f* 

25V75 

$***25.75+ 

$*,**9.99+ 

-25V75 

$***25*75- 

$*,**9.99BCR 

25V75 

5***25,75 

$*,**9.99BCR 

-25V75 

$***25./5  CR 

$*,**9.99CR 

-25V75 

$***25.75CK 

$*,**9.99BDB 

25V75 

5***25.75 

$*,**9.99BDB 

t***ot;  7c:  HR 

$*,**9.99DB 

-25V75 

$***25.75DB 

$+,+++.99 

25V75 

$  +25.75 

$+,+++.99 

-25V75 

$  -25.75 

$-,  .99 

25V75 

$  25.75 

$-,— .9*5 

-25V75 

$  -25.75 

ARRAYS  (TABLES) 

An  array  is  nothing  more  than  a  series  of  identical  data  items.    Instead  of 
having  to  define  all  of  them  individually,  COBOL  allows  one  to  say  that  one 
thing  OCCURS  n  times.    All  that  the  programer  has  to  do  is  define  what  one 
of  the  things  looks  like.    The  things  are  then  referenced  by  use  of  an  index 
or  a  subscript.    The  index  or  subscript  simply  tells  the  compiler  which  of 
the  things  you  want  to  look  at. 


EXAMPLE: 


01  WS-TABLE. 

05    WS-TABLE-ENTRY  OCCURS  25  TIMES 

INDEXED  BY  TABLE-INDEX. 

10    WS-NAME  PIC  X(20). 

10    WS-SOC-SEC-NUM  PIC  X(9). 

This  example  defines  an  array  named  WS-TABLE  made  up  of  25  WS-TABLE-ENTRY 's 
Each  WS-TABLE-ENTRY  is  broken  down  into  a  WS-NAME  and  WS-SOC-SEC-NUM.  The 
entire  array  is  580  characters  long.    (  (20+9)  x  25)   This  array  is  indexed 
by  WS-TABLE- INDEX.    How  to  reference  arrays  in  the  PROCEDURE  DIVISION  is 
covered  in  the  section  on  the  PROCEDURE  DIVISION. 
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RESTKICTIONS  ON  ARRAYS: 


IQS 


The  OCCURS  clause  cannot  be  used  with  77  or  01  items. 
Any  item  containing  an  OCCURS  clause  or  subordinate 
to  an  item  containing  an  OCCURS  clause  cannot  have  a 
VALUE  clause. 


REDEFINES  CLAUSE 

The  same  area  of  memory  may  be  described  in  more 
REDEFINES  clause.  Many  times  it  is  necessary  to 
in  several  ways  (alphanumeric  or  numeric).  This 
clause. 


than  one  way  by  using  the 
use  a  particular  data  item 
is  done  with  the  REDEFINES 


EXAMPLE: 


01  WS-DISK-RCD. 
05  WS-PAY 

05   WS-PAY- 1 

01  WS-CARD-RCD. 

05    WS-NAME-1 .  ' 

10  WS-LAST-NAME-1 
10  WS-FIRST-NAME-1 
05  WS-NAME-2 

10  WS-FIRST-NAME-2 
10  WS-LAST-NAME-2 


PIC  S9(5)V99  ' 
VALUE  ZEROS. 

REDEFINES  WS-PAY 

PIC  X(7J. 


PIC  X(12). 
PIC  X{8J. 

REDEFINES  WS-NAmE-1 
PIC  X(8). 
PIC  X(12). 


In  the  first  example,  WS-PAY  is  simply  REDEFINED  as  alphanumeric  by  WS-PAY-l . 
This  type  of  redefinition  is  particularly  useful  when  checking  the  validity  of 
numeric  fields.    More  of  this  will  be  covered  in  the  discussion  of,^ the  PRO- 
CEDURE DIVISION.    In  the  second  example,  the  storage  assigned  to  WS-NAME-1 
is  defined  in  two  ways:    WS-LAST-NAME  then  WS-FIRST-NAME  and 
then  WS-LAST-NAME.    When  the  data  coming  into  the  program  can 
different  forms,  the  REDEFINES  clause  is  very  helpful. 


WS-FIRST-NAME 
be  of  several 


RESTRICTIONS  ON  THE  REDEFINES  CLAUSE: 

1.  Redefinition  within  the  elements  subordinate  to  an  OCCURS  clause  will 
generate  a  warning. 

2.  Be  sure  to  make  the  two  items  (the  object  and  subject  of  the  REDEFINES) 
the  same  length. 

3.  REDEFINES  cannot  be  specified  in  an  01  entry  in  the  FILE  SECTION. 

4     If  A  REDEFINES  B,  then  both  A  and  B  must  have  the  same  level. number  and 
there  mu«^i-  be  no  intervening  level  numbers  having  a  level  number  equal  to  or 
less  than  A  and  B's  level  numbers.    For  example,  if  A  and  B  were  both  05 
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entries,  then  no  entry  with  05  or  less 
2  above,  there  are  10 's  between  NAME-1 
are  05  entries. 


could  be  between  A  and  B.  In  example 
and  NAME-2.    Both  NAME-1  and  NAME-2 


88  LEVEL  ITEMS 

An  88  level  item  may  be  defined  under  any  data  item,  both  6:!*??Tientary  and  group 
level.    It  has  no  PICTURE  clause.    Instead  it  is  used  to  describe  possible 
values  or  ranges  of  values  and  to  associate  a  name  with  the  descriptioii. 


EXAMPLE: 


05    IT01 -TRANSACTION-CODE  PIC  X. 

88  ADDITION  VALUE  'A'. 

88  CHANGE  VALUE  "C. 

88  DP'.ETION  VALUE  'D'. 

In  this  example,  the  elementary  data  item  IT01 -TRANSACTION-CODE  is  described 
as  having  the  possible  value  of  A,  C,  or  D.    If  one      these  values  occurs, 
the  name  associated  with  them  is  true.    See  the  discussion  of  the  IF  state- 
ment to  see  how  to  use  the  88  in  the  PROCEDURE  DIVISION.    If  any  other  value 
other  than  the  ones  described  in  the  88 's  occurs,  none  of  the  88's  are  true, 
but  no  error  condition  is  raised. 


EXAMPLE: 

01    WS-PAY  PIC  9(6jV99. 

88  SMALL  VALUE  .00  THRU  100.00. 

88  MEDIUM  VALUE  100.01  THRU  300.00. 

88  LARGE  VALUE  300.01  THRU  1000.00. 

88  VERY-LARGE  VALUE  1000.01  THRU  999999.99 

Note  in  the  first  example  that  the  values  associated  with  the  IT01 -TRANSACTION- 
CODE  are  enclosed  in  quotes  because  the  PICTURE  of  IT01 -TRANSACTION-CODE  is 
alphanumeric.    In  the  second  example,  the  VALUES  are  numeric  literals  because 
the  PICTURE  of  WS-PAY  is  numeric.    88  level  entries  can  be  in  both  the  FILE 
SECTION  and  the  WORKING-STORAGE  SECTION.    They  should  not  be  used  under  77 
level  items.    Ranges  may  be  used  with  alphanumeric  items,  but  care  should  be 
exercised. 

EXAMPLE: 


05    WS-DIVISION-CODE  PIC  XX. 

88  DIVISION-1  VALUE  '01'  THRU  '02'. 

88  DIVISION-2  VALUE  '03'  THRU  '04'. 

What  is  being  described  is  the  internal  machine  representation  of  '01'  thru 
the  internal  representation  of  '02'  and  all  intervening  characters.  This 
type  of  88  is  very  machine  dependent  and  can  be  the  cause  of  obscure  errors 
in  processing. 
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THE  PROCEDURE  DIVISION 

The  PROCEDURE  DIVISION  contains  the  instructions  that  manipulate  the  data 
described  in  the  DATA  DIVISION.    The  PROCEDURE  DIVISION  is  made  up  of  a 
series  of  paragraphs.    Each  paragraph  begins  with  a  name  (the  paragraph  name) 
followed  by  a  period  followed  by  the  body  of  the  paragraph.    The  body  is  made 
up  of  one  or  more  COBOL  PROCEDURE  DIVISION  sentences.    A  COBOL  sentence  is 
one  or  more  COBOL  verbs  and  their  associated  parts.    A  sentence  is  ended  by 
a  period.    All  paragraph  names  begin  in  margin  A.    All  sentences  begin  in 
margin  B. 

Army  Standard:    All  paragraph  names  will  be  preceded  by  a  four  digit  number. 
Paragraphs  will  be  in  ascending  order  by  this  number.    The  numbers  will  be 
incremented  by  10  to  allow  insertion  of  new  paragraphs  in  the  future. 

EXAMPLE : 

PROCEDURE  DIVISION. 
0J81(5-PARA-NAME. 

OPEN  INPUT  CARD-READER 

OUPUT  PRINTER.  _ 
PERFORM  !Z)020-READ-AND-PRINT  THRU  0ja20-R,^P-EXIT 

UNTIL  WS-EOF-SWITCH  =  'OFF'. 
CLOSE  CARD-READER . 

PRINTER. 
STOP  RUN. 
0i32!3-READ-AND-PRINT. 
READ  CARD-READER 

AT  END  MOVE  'OFF'  TO  WS-LOF-SWITCH 
60  TO  0020-RAP-EXIT. 
MOVE  CARD-RECORD  TO  PRINT-RECORD. 
WRIlE  PRINT-RECORD  AFlER  ADVANCING  2  LINES. 
J302J3-RAP-EAIT.  EXIT. 

In  the  above  example,  there  are  three  paragrapns.    The  first  starts  with 
001(3-PARA-NAME  and  ends  with  STOP  RUN.    The  second  paragraph  begin^ 
0020-READ-AND-PRINT  and  enas  with  WRITE  PRINT-RECORD  AFTER  ADVANCING  2  LINES. 
The  third  begins  with  0020-RAP-EXIT  and  ends  with  EXIT  I  this  has  only  one 
sentence  in  it).    EXIT  will  be  explained  later,  but  for  now,  theEXIT  paragra" 
IS  considered  to  be  the  end  of  the  preceding  paragraph.    What  ^^l^  P^ogj^O; 
actually  does  is  immaterial  at  this  point.    Each  of  the  verbs  {OPEN,  PERFORM. 
CLOSE,  STOP,  REAU,  MOVE,  GO,  WRITE)  will  be  discussed  in  ^J^ail  later  When 
the  PROCEDURE  DIVISION  is  executed,  the  first  statement  after  PROCEDURE  DIVIS 
is  executed  first.    Because  of  this,  no  paragraph  name  is  needed  immediately 
after  PROCEDURE  DIVISION.    ANSI  requires  para  name.    Normally  paragraphs 
represent  blocks  of  code  that  do  one  job.    In  the  example,  everything  from 
0020-READ-AND-PRINT  thru  0020-RAP-EXIT  is  involved  in  the  reading  ^nd  writing 
of  data  records.    Everything  from  the  PROCEDURE  DIVISION  thru  the  STOP  RUN  is 
involved  in  preparing  the  files  to  be  read  and  written,  controlling  the 
reading  and  writing,  then  cleaning  up  after  it  has  all  been  done.  Each 
paragraph  has  its  own  job  and  doesn't  depend  on  anything  else  to  do  that  job 
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The  PROCEDURE  DIVISION'S  verbs  have  been  divided  into  three  classes: 

1.  Process  verbs  -  words  which  initiate  manipulation  of  data  in  the  program, 

2.  I/O  verbs  -  words  which  initiate  data  transfer  from  the  outside  world  into 
the  program  or  vice  versa. 

3.  Logic  control  verbs  -  words  which  affect  the  order  of  statement  execution. 
Each  of  these  categories  of  verbs  are  discussed  below. 


PROCESS  VERBS 
MOVE 

The  form  of  the  MOVE  verb  is: 

MOVE^  fdata-name-lT.  TO    data-name-2  [data-name-3  ...] 
(literal  i 

This  verb  copies  information  from  one  data-name  or  literal  to  one  or  more 
data-names.    There  are  several  restrictions  on  moving  data  from  one  area  to 
another  that  are  connected  to  thG  PICTURES  of  the  respective  data-items. 
See  Table  1.    An  example  of  the  MOVE  statement  is: 

EXAMPLE: 

MOVE  IM01-NAME  TO  WS-NAME. 

MOVE  IM01-DIVISION  TO  WS-DIVISIUN 

WS-DIVISION  HOLD. 

In  the  first  example,  the  data-item  IM01-NAME  is  copied  to  WS-NAME.    When  the 
move  is  complete,  both  IM01-NAME  and  WS-NAME  contain  the  information  that  ' 
IM01-NAME  had  contained  before  the  MOVE  was  executed.    In  the  second  example, 
the  information  in  IM01-DIVIS1ON  is  copied  to  both  WS-UIVISION  and  WS-DIVISION 
HOLD.    When  the  MOVE  is  complete,  all  three  data  items  have  the  same  infor- 
mation in  them. 

Another  form  of  the  MOVE  statement  is: 

MOVE  ^corresponding)  group-i tem-1.  TO  group-item-2. 
(^CORR  ^ 

This  form  of  the  MOVE  verb  copies  all  of  the  data-names  under  group-i tem-1 
that  have  the  same  data-names  under  group-item-2.    When  the  MOVE  CORRESPONDING 
is  complete,  anything  from  all  of  the  data-ftems  under  group-i tem-1  to  none  of 
the  data-items  under  group-i tem-1  may  have  been  moved. 
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Army  Standard:    Since  non-unique  names  are  not  allowed  and  the  move 
corresponding  depends  on  non-unique  names,  the  move  corresponding  statement 
is  not  allowed. 

EXAMPLE: 

FILE  SECTION. 


01  IM01-MASTER-RCD. 

05  IM01-NAME 

05  IM01-SSN 

05  IM01-RANK 

05  FILLER 
WORKING-STORAGE  SECTION. 


PIC  X(20J, 
PIC  X(9). 
PIC  X(3). 
PIC  X(48) 


01 


01 


WS- 

DETAIL-LINE-1 . 

05 

FILLER 

05 

WS-NAME 

05 

FILLER 

05 

WS-RANK 

05 

FILLER 

05 

WS-SSN 

05 

FILLER 

WS- 

■DETAIL-LINE-2. 

05 

FILLER 

05 

IM01-NAME 

05 

IM01-RANK 

05 

IM01-SSN 

VALUE  IS 


VALUE  IS 


VALUE  IS 


VALUE  IS 


VALUE  IS 


PIC  X(48) 
SPACES. 

PIC  X(20). 

PIC  X(3l 
SPACES. 

PIC  X(3). 

PIC  X(3j 
SPACES. 

PIC  XC9). 

PIC  X(47J 
SPACES. 

PIC  XC48) 
SPACES. 
PiC  X(23) 
PIC  X(6). 
PIC  X(56J 


PROCEDURE  DIVISION. 


MOVE  CORRESPONDING  IM01-MASTEK-RCD  TO  WS-DETAIL-LINE-1 . 
MOVE  CORRESPONDING  IM01-MASTER-RCD  TO  WS-DETAIL-LINE-2 . 

m  the  first  MOVE  CORRESPONDING  statement,  nothing  would  have  been  moved  and 
no  error  message  generated.    This  is  one  weakness  of  the  MOVE  CORRESPONDING 
statement     None  of  the  data-items  are  named  identically  under  group-item-1 
and  qroup-item-2.    In  the  second  MOVE  CORRESPONDING,  al  I  of  the  data-item 
in  MASTER-RECORD  are  moved  in  DETAIL-LINE-2.  .Note  that  instead  of  defining 
all  of  the  FILLERS  between  the  data-items  as  in  DtTAIL-LINE-1 ,  the  data-items 
in  DETAIL-LINE-2  are  simply  defined  as  containirg  those  FILLERS,    when  the 
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IM01-NAME  defined  in  IM?)l-MAbTER-RECORD  is  moved  to  the  IM(51-NAME  defined  in 
WS-DETAlL-LINE-2,  the  information  is  moved  into  the  left  most  of  the  23 
character  receiving  field  and  the  remaining  3  characters  are  filled  with 
blanks.    Similar  actions  accompany  the  other  two  moves.    This  type  of 
definition  is  less  efficient  than  the  first  because  the  trailing  characters 
in  all  of  the  receiving  fieids  are  filled  with  blanks  each  time  the  move 
statement  is  executed.    In  the  first  example,  the  blanks  are  put  in  only  once 
during  the  compilation  and  remain  there  all  during  the  execution  of  the  program 
with  no  modification.    It  is  normally  a  good  idea  to  make  receiving  fields 
the  same  size  as  sending  fields. 

NOTE:    If  any  of  the  data  item  names  are  defined  with  the  same  data  name  in 
two  or  more  areas  and  need  to  be  referenced  individually,  they  may  be 
referenced  by  qualifying  the  item  with  the  qualifier  OF. 

EXAMPLE: 

MOVE  RANK  OF  MASTER-RECORD  TO  RANK-HOLD. 

Army  Standard:    Qualification  of  data  names  will  not  be  used. 


TABLE  1 


LEGAL  MOVES: 

1.  (A)  an  alphabetic  field  may  be  moved  to  another  alphabetic  field.  The 
movement  is  from  the  leftmost  byte  of  the  receiving  field  to  the  right.  If 
the  receiving  field  is  larger,  the  remaining  positions  will  be  filled  with 
spaces.    If  the  receiving  field  is  shorter  than  the  sending  field,  truncation 
of  the  right  most  posltion(s)  will  occur. 

2.  (X)  an  alphanumeric  field  may  be  moved  to  another  alphanumeric  field.  The 
*:ame  rules  apply  here  as  they  do  in  an  alphabetic  field. 

3.  (9)  a  numeric  field  may  be  moved  to  another  numeric  field.    However,  the 
movement  is  accomplished  by  decimal  point  alignment.    If  the  receiving  field 
is  smaller,  truncation  will  occur  and  if  the  receiving  field  is  larger,  zeros 
will  fill  in  the  remaining  core  area.    Exactly  how  the  truncation  takes  place 
will  be  explained  later. 

4.  A  numeric  or  alphabetic  field  may  be  moved  to  an  alphanumeric  field.  When 
numeric  (PIC  9's)  date  fields  are  moved  to  alphanumeric  (PlC  X*s)  data  fields, 
the  move  is  treated  as  an  alphanumeric  move  and  follows  the  rules  shown  under 
rul e  1 . 

5.  An  edited  field  may  be  moved  to  an  alphanumeric  field. 

6.  A  numeric  field  may  be  moved  to  an  edited  field. 

7.  An  alphabetic  field  may  be  moved  to  an  alphanumeric  edited  field. 

37  DRAFT  ST  18-150 


199 


/89 


EXAMPLE: 


MOVE  A-FIELD  TO  B-FIELD.  ,  ,        ^  . 

If  B-Field  were  alphanumeric,  A-Field  could  be  alphabetic,  alphanumbenc  or 

edited.  ,j     ,  u 

If  B-FIELD  were  numeric,  A-FIELD  could  only  be  numeric. 

If  B-FIELD  were  alphabetic,  A-FIELD  could  only  be  alphabetic. 

If  B-FIELD  were  edited,  A-FXELD  could  only  be  numeric. 

In  the  above  examples,  A-FIELD  remains  unchanged;  B-FIELD  becomes  a  "copy"  of 
A-FIELD. 

EXAMPLE: 

MOVE  SPACES  TO  0R(31-PKlNTER-RCD. 

In  this  case,  OR(ai-PRINiER-RCD  must  be  defined  as  PICTURE  X  (alphanumeric)  or 
PICTURE  A  (alphabetic),  because  spaces  is  recognized  by  the  compiler  as  1  or 
more  "blanks",  which  is  a  character,  not  a  number,  and  can  be  placed  only  into 
a  PICTURE  (A)  or  (X)  fields. 

NOTE-    All  group  level  items  (items  which  are  broken  down  into  smaller  parts) 
are  handled  as  PICiURE  X  fields  regardless  of  the  PICTURE  of  the  subordinate 
elements  of  the  field  are  described. 

EXAMPLE: 

01  WS-OUl-RCD. 

05    WS-NUMBER  PIC  9(6J. 

§b    FILLER  PIC  X(127). 

In  this  example,  WS-OUl-RCD  is  alphanumeric  (PICTURE  (X))  because  it  is  a 
o?ouD  item     Its  subordinate  parts  are  WS-NUMBER  and  FILLER,  both  elementary 
because  they  ha^e  PICTURE  clauses.    WS-OUT-RCD's  length  is  the  sum  of 
its  parts  (133  characters).    The  programer  can  legally  write  MOVE  SPACES  TO 
WS-OUT-RCD  because  WS-OUT-RCD  is  a  group  item  and  therefore  alphanumeric  even 
though  the  first  six  positions  are  defined  as  numeric.    If  this  move  was  done, 
then  WS-NUMBER  cannot  be  used  in  arithmetic  computations  because  the  infor- 
mation in  it  is  not  numeric  and  will  cause  a  'data  exception'  (trying  to  use 
non-numeric  data  as  though  it  were  numeric).    Numeric  information  must  be 
moved  to  WS-NUMBER  before  WS-NUMBER  can  be  used  as  a  number. 

If  the  two  items  are  alphanumeric  and  not  the  same  size,  one  of  two  things 
will  happen: 

1      If  the  smaller  item  is  moved  to  the  larger,  the  data  in  the  smaller  item 
is  put  as  far  left  as  possible  in  the  larger  field.    The  remaining  characters 
of  the  larger  item  will  be  filled  with  spaces. 
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2.    If  the  larger  item  is  moved  to  the  smaller,  the  smaller  item  is  filled  up 
with  the  information  from  the  larger  starting  at  the  left  of  both  fields.  The 
extra  characters  in  the  larger  field  are  ignored  (tritncated) . 

EXAMPLE: 


01  IM01-CARD. 
05  IM01-NAME 
05  IM01-SSN 
05    IM01 -ADDRESS 
05  FILLER 

01  WS-DETAIL-LINE. 
05    FILl  ER 
05  WS-NAME 
05  WS-SSN 
05  WS-ADDRESS 
05  FILLER 


PIC  X(20). 
PIC  X(9). 
PIC  X(40). 
PIC  X(ll). 


PIC  X(33). 
PIC  X(25). 
PIC  X(15). 
PIC  X(30). 
PIC  X(32). 


MOVE  IM01-NAME  TO  WS-NAME. 

MOVE  IM01-SSN  TO  WS-SSN. 

MOVE  IM01 -ADDRESS  TO  WS-ADDRESS. 

IM01-NAME  is  moved  to  the  left  most  twenty  characters  of  WS~NAME  and  the 
remaining  five  characters  are  filled  with  spaces.    IM01-SSN  is  likewise  plit 
in  the  leftmost  nine  characters  of  WS-SSN  and  the  remaining  six  characters  are 
filled  with  spaces.    Since  IM01-ADDRESS  is  larger  than  WS-ADDRESS,  only  the 
leftmost  thirty  characters  of  IM01 -ADDRESS  are  moved  to  WS-ADDRESS. 

All  numeric  fields  have  a  decimal  point  either  implied  (with  a  'V'),  assumed 
(if  no  other  decimal  point  is  given,  it  defaults  to  the  right  of  the  rightmost 
digit),  or  indented  (as  a  '.').    Movement  from  one  numeric  field  to  another 
takes  place  after  decimal  point  alignment.    One  or  both  of  these  cases  may 
apply. 

1.  After  decimal  point  alignment,  the  digits  are  moved  from  the  sending  field 
into  the  receiving  field,  beginning  at  the  left  of  the  decimal  point  and 
preceding  left.    If  the  sending  field  has  more  digits  to  the  left  of  the 
decimal  point  than  the  receiving  field,  only  as  many  as  will  fit  are  moved. 
The  rest  are  truncated.    If  the  sending  field  has  fewer  digits  to  the  left 

of  the  decimal  point  than  the  receiving  field,  then  the  extra  digits  are 
filled  with  zeros. 

2.  If  the  sending  field  has  more  digits  to  the  right  of  the  decimal  point 
than  the  receiving  field,  then  only  as  many  as  will  fit  are  moved.    The  rest 
are  truncated.    If  the  sending  field  has  fewer  digits  to  the  right  of  the 
decimal  point  than  the  receiving  field,  then  the  extra  digits  are  filled  with 
zeros . 


ERIC 


39 

201 


DRAFT  ST  18-150 


/9/ 


^  EXAMPLES: 


77    WS-NUM-1  PIC  99V9 

VALUE  25.1. 

77    WS-NUM-2  PIC  999V99. 

77    WS-NUM-3  PIC  V999. 

77    WS-NUM-4  PIC  99. 

MOVE  WS-NUM-1  to  WS-NUM-2, 

WS-NUM-3. 
WS-NUM-4. 

After  the  moves,  the  value  of  WS-NUM-1  is  25.1.  WS-NUM-2  is  J825.10,  WS-NUM-3 
is  .1019,  and  WS-NUM-4  is  25. 

To  the  left  of  the  decimal  point,  the  data  is  right  justified.    Any  excess 
high  order  positions  are  filled  with  ^I's.    To  the  right  of  the  decimal  point, 
thev  are  left  justified.    Any  excess  low  order  positions  are  filled  with  P  s. 
Truncation  occurs  as  follows:    To  the  left  of  the  decimal  point,  the  high 
order  is  truncated.    To  the  right  of  decimal  point,  the  low  order  is  truncated, 

ADD 

There  are  three  forms  of  the  ADD  verb.    The  first  form  is  normally  used  to 
add  one  or  more  things  to  a  sum. 


ADD  fdata-name-1         ~l  [data-name- 
(numeric-literal-lj  [numeric-li 


-2 
teral-2 


data-name-m         1     JO    data-name-n  [ROUNDED] 
numer i c - 1 i t era 1 -m) 

[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSETperioHTT 

EXAMPLE  1: 

ADD  WS-FICA-TAX  WS-CITY-TAX  WS-LOCAL-TAX  WS-STATE-TAX  TO  WS-TOTAL-TAX. 
EXAMPLE  2: 

ADD  1  to  WS-LINE-COUNT. 

The  first  example  adds  four  individual  taxes  to  the  total  already  in  WS-TOTAL- 
TAX  yielding  a  new  total.    This  list  of  taxes  could  also  be  added  to  several 
other  things  in  the  same  statement  by  simply  listing  the  things  after  WS-TOTAL- 
TAX     Each  of  the  resultant  fields  may  have  the  ROUNDED  clause  included  after 
it  *  If  ROUNDED  is  used,  the  result  is  rounded  according  to  the  receiving  fielc 
PICTURE.    After  decimal  point  alignment,  the  number  of  places  to  the  >"i9ht  of 
the  decimal  point  of  the  result  of  an  arithmetic  computation  is  compared  with 
tne  number  of  places  allowed  for  the  result  in  the  receiving  field.    If  more 
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places  are  in  the  result  than  can  be  accommodated  for  in  the  receiving  field, 
normally  the  extra  places  are  simply  discarded  (truncated).    If  ROUNDED  is 
specified,  then  the  most  significant  digit  of  the  excess  is  examined.  If 
this  digit  is  5  or  more,  then  the  least  significant  digit  of  the  part  that  is 
going  to  be  used  will  be  incremented  by  one.    If  this  digit  is  4  or  less,  then 
the  number  remains  the  same  and  the  unneeded  low  order  digits  are  discarded. 
If  ON  SIZE  ERROR  is  specified  after  the  list  of  receiving  fields,  then  if  the 
result  of  the  computation  is  too  large  to  fit  in  the  specified  PICTURE,  the 
list  of  verbs  after  the  ON  SIZE  ERROR  is  executed.    Whether  the  ON  SIZE  ERROR 
clause  is  specified  or  not  and  a  high  order  truncation  condition  occurs,  the 
truncated  result  is  still  put  in  the  receiving  fields.    In  the  second  example, 
WS-LINE-COUNT  is  incremented  by  1. 

Army  Standard:    Use  of  ON  SIZE  ERROR  and  ROUNDED  should  be  avoided  when  possible. 

The  second  form  of  the  ADD  verb  is  used  to  add  two  or  more  things  into  one 
or  more  receiving  fields.    ROUNDED  and  ON  SIZE  ERROR  may  be  specified  for  each 
of  the  receiving  fields  causing  the  same  treatment  as  in  the  first  form  of  the 
ADD  verb. 


[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE  (period) J 

EXAMPLE: 

ADD  IM01-NUMER-OF-DEPENDENTS  1  GIVING  WS-FAMILY-SIZE, 
ON  SIZE  ERROR  DISPLAY  'FAMILY  SIZE  TOO  BlG' 
60  TO  01<80-PmRA-EXIT. 

In  this  example,  IM01-NUMBER-OF-DEPENDENTS  and  the  numeric-literal  1  are  added 
together  and  the  result  is  placed  into  WS- FAMILY- SIZE.    If  WS-FAMILY-SIZE 
cannot  contain  the  number  of  digits  of  the  result  of  the  computation,  then  an 
ON  SIZE  ERROR  condition  exists  and  the  verbs  after  ON  SIZE  ERROR  until  the 
next  period  are  executed.    If  ON  SIZE  ERROR  had  not  been  specified  and  the 
condition  arose  during  the  computation,  the  result  would  be  truncated  and  the 
next  statement  executed.    An  advantage  of  the  GIVING  option  is  that  none  of 
the  original  values,  except  the  result,  are  changed  by  the  ADD. 

The  third  form  of  the  ADD  verb  adds  all  of  the  items  under  group-item-1  to  all 
of  the  identically  named  items  under  group-i tem-2.    ROUNDED  and  ON  SIZE  ERROR 
operate  identically  as  stated  before. 

ADD    CORRESPONDING    group-item-1  TO  group-item-2  [ROUNDED] 


[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE"Tperiod)J 


numeric- 1  i  teral  -1 


data -name -2 
numer i  c- 1 i  tera I - 2 


LROUNDEDJ 
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EXAMPLE: 


ADD  CORRESPONDING  IM01-MAS I ER-PAY-RECORD  TO  WS-MASTER-PAY~TOTALS. 

This  example  will  add  all  of  the  items  under  IM01-MASTER-PAY-RECORD  to  the 
identically  named  items  under  Wb-MASTER-PAY-TOTALS  truncating  the  results  if 
necessary. 

Army  Standard:    Add  corresponding  will  not  be  used. 
SUBTRACT 

SUBTRACT  has  three  forms.    They  are: 

SUBTRACT  Tdata-name-l         ^  fdata-name-Z  . . 7]  FROM    data-name-m  LROUNDEE 

^Humeri c-literal-lj  [numeric-literal -2  J 

[data-name-n  [ROUNDED]  ...] 

[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE  (period) J 


GIVING  data-name-n  [ROUNDED] 

[ON  SIZE  ERkOR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE  (period) J 


LON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSETperiodjJ 

In  the  first  form  of  the  SUBTRACi  verb,  one  or  more  items  are  added  up  then 
the  total  is  subtracted  from  the  item  or  items  following  the  FROM.  ROUNDED 
and  ON  SIZE  ERROR  work  identically  to  the  ADD  statement. 

Army  Standard:    Use  of  ON  SIZE  ERROR  and  RuUNDED  should  be  avoided  where 
possible. 

EXAMPLES: 

SUBTRACT  1  FROM  WS-TOTAL-PROPLE. 

SUBTRACT  WS-FICA-TAX  WS-SUC-SEC-TAX  FROM  WS-GROSS-PAY  ROUNDED 
ON  SIZE  ERROR  MOVE  '1'  TO  WS-ERROR-FLAG 
GO  TO  01 50- PARA-EX IT. 


data-name-2 
numeric-literal -2 


FRUM  data-name-m 

numeri c-1 i teral -m 
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In  the  second  form  of  the  SUBTRACT  verb,  one  or  more  items  are  added  up  then 
the  total  Is  subtracted  from  the  item  after  the  FROM  clause  and  the  final 
result  is  put  into  the  one  or  more  data-items  following  the  GIVING  clause. 
ROUNDED  and  ON  SIZE  ERROR  work  identically  to  the  ADD  statement. 

EXAMPLES: 

SUBTRACT  1  FROM  WS-FAMILY-SiZE  GIVING  WS-NUMBER-OF-DEPENDENTS . 

SUBTRACT  WS-FICA-TAX  WS-SOC-SEC-TAX  FROM  WS-GROSS-PaY  GIVING  WS-NET-PaY. 

In  both  the  examples,  the  item  following  the  FROM  is  not  changed  by  the 
computation. 

In  the  third  form  of  the  SUBTRACT  verb,  all  of  the  items  under  9»*oup-i tem-l 
are  subtracted  from  the  identically  named  items  under  group-i tem-2.  ROUNDED 
and  ON  SIZE  ERROR  work  identically  to  the  ADD  statement. 

EXAMPLE: 

SUBTRACT  CORR  IM0:i-INVENTORY-ADJUSTMENT-RECORD  FROn 
WS-TOTAL-INVENTURY-DISCREPANCY . 

Army  Standard:    Subtract  corresponding  will  not  be  used. 
MULTIPLY 

ihis  verb  is  used  to  multiply  one  by  another.    It  has  two  forms. 

MULTIPLY  ("data-name-1         Z  BY  data-name-2  [ROUNDED J 

^numeric-! iteral-1 3 

[On  size  error  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE  ( period  J j 

MULTIPLY  Jdata-name-1         "1  BY  fdata-name-a         1  GIVING  data-name-3  [ROUNDED] 
/numeric-literal-lj      ^numeric-li  teral-2^ 

[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE"Tperiod)J 

In  the  first  form  of  the  MULTIPLY  verb,  a  number  (either  a  numeric-literal  or 
a  data-name)  is  multiplied  by  another  data-name  and  the  result  is  put  in  the 
data-name  after  BY,    ROUNDED  and  ON  SIZE  ERROR  work  in  the  same  manner  as  in 
the  ADD  statement. 

Army  Standard:    Use  of  ROUNDED  and  ON  SIZE  ERROR  should  be  avoided  where 
possible. 

EXAMPLE: 

MULTIPLY  WS-TAX-RATE  BY  WS-GkOSS-PAY. 
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This  example  multiplies  the  contents  of  WS-TAX-RATE  by  the  contents  of 
WS-GROSS-PAY  and  puts  the  result  in  WS-GROSS-PaY. 

The  second  form  of  the  MULTIPLY  vero  is  used  to  multiply  two  values  together 
putting  the  result  into  a  data-name.    ROUNDED  and  ON  SIZE  ERROR  work  in  the 
same  way  as  in  the  ADD  statement. 


MULTIPLY  WS-GROSS-PaY  BY  WS-TAX-RATE  GIVING  WS-FEDERAL-I AX  ROUNDED 
ON  SIZE  ERROk  display  "FEDERAL  TAX  OVERFLOW 
GO  TO  0210-PARA-'C.XIT. 

DIVIDE 

The  DIVIDE  statement  has  two  forms: 
DIVIDE  fdata-name-1         1  INTO  data-name-2  [ROUNDEUJ 


[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE"Tperiod}J 

DIVIDE  fdata-name-1         ^  / INTO)  /data-name-2         1  GIVING  data-name-3  [ROUNDE! 
,^numeric-literal-l5 /_BY  j  ^numeric-literal -2 j 

LREMaINDER  data-name-4] 

[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
LLSE  (perToSyi 

The  first  form  of  the  DIVIDE  verb  is  used  to  divide  a  number  or  data-name  into 
another  data-name.    ROUNDED  and  ON  SIZE  ERROR  work  the  same  way  as  in  the  ADD 
statement.    The  result  is  left  in  the  second  data-name. 

Army  Standard:    Use  of  ROUNDED  and  ON  SIZE  ERROR  should  be  avoided  where 
possible. 

EXAMPLES: 

DIVIDE  10  IN  10  WS-PAGE-TOIAL. 
DIVIDE  WS-TAX  INTO  WS-PaY  ROUNDED. 

In  both  examples,  the  result  is  left  in  the  second  variable  (after  the  INTO). 

The  second  form  of  the  DIVIDE  verb  divides  a  number  or  data-name  into  or  by 
another  number  or  data-name  giving  a  third  number  or  data-name.    ROUNDED  and 
ON  SIZE  ERROR  work  in  the  same  manner  as  in  the  ADD  statement. 


EXAMPLE: 
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EXAMPLES: 


DIVIDE  WS-TAX  INTO  WS-PAY  GIVING  WS-TAX-RATE. 
DIVIDE  A  BY  B  GIVING  C  ROUNDED. 

In  both  examples,  the  result  is  placed  in  the  variable  after  the  GIVING  leaving 
the  first  two  variables  unchanged. 


COMPUTE 

(arithmetic-expression 
COMPUTE  identifier-1  [ROUNDED]  = -^identifier-Z 
  ^literal-1 

[ON  SIZE  ERROR  any  series  of  COBOL  verbs  and  associated  parts  except  IF- 
ELSE"TperToHyT 

The  COMPUTE  statement  gives  COBOL  powers  similar  to  that  of  FORTRAN:  a  complete 
arithmetic  expression  may  be  evaluated  and  the  result  placed  in  identifier-1. 

There  are  five  (5)  arithmetic  operators  that  may  be  used  in  arithmetic 
expressions.    Each  is  represented  by  a  specific  character  or  character 
combination  that  must  be  preceded  by  a  space  and  followed  by  a  space,  except 
that  a  sign  (-  or  +)  must  not  be  preceded  by  a  space  when  it  follows  a  left 
parenthesis. 

ARITHMETIC  OPERATOR  MEANING 
+  addition 

subtraction 
*  multiplication 
/  division 
**  exponentiation" 

Parenthesis  may  be  used  in  arithmetic  expressions  to  specify  the  order  in 
which  elements  are  to  be  evaluated.    Expressions  within  parenthesis  are 
evaluated  first.    When  parenthesis  are  not  used  or  parenthetical  expressions 
are  at  the  same  level  of  inclusiveness,  the  following  heirarchical  order  is 
implied: 


+  (indicating  negative  or  positive  number) 


1 .  -  or 

2.  ** 
3!    *  and  / 
4.    +  and  - 

When  the  order  of  consecutive  operations  on  the  same  heirarchical  level  is 
not  completely  specified  by  parentheses,  the  order  of  operation  is  from  left 
to  right. 

ON  SIZE  ERROR  and  ROUNDED  operate  identically  to  the  ADD  statement. 
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Army  Standard:    Use  of  the  ON  SIZE  ERROR  and  ROUNDED  should  be  avoided  where 
possible. 

EXAMPLE:    COMPUTE  WS-RESULTS  ROUNDED  =  (A+B-  C*D)  -  (-E  /F+  (G*H**I)) 
ORDER  OF  OPERATION: 

H  is  raised  to  the  Ith  power 

6  is  multiplied  by  the  result  of  (H**I) 

E  is  negated 

F  is  divided  into  E 

The  result  of  -E/F  is  added  to  G*H**I 

C  is  multiplied  by  D 

A  is  added  to  B 

C*D  is  subtracted  from  A+B  -.^    v  a^o  r*n 

The  result  of  -E/F+(G*H**I)  is  subtracted  from  the  'Tesult  ot  A+B-C*D 
This  result  is  rounded  up  and  the  result  if  placed  into  WS-RtbULib. 
ABCDEFGHandl  remain  unchanged. 

NOTE:    Army  naming  convention  is  dropped  for  this  example  for  illustrative 
clarity. 


INPUT-OUTPUl 
READ 

The  form  of  the  READ  statement  is: 
READ  file-name 

AT  END  any  series  of  COBOL  verbs  and  associated  parts  except  the  IF  or 
IF-ELSE  ended  by  a  period. 

This  verb  reads  any  sequential  file  (cards,  disk,  or  tape  file)  and  places  the 
information  that  was  read  into  the  record  description  under  the  file-name  in 
the  FD.    Each  time  this  verb  is  executed,  one  record  is  read  from  the  file. 
After  the  last  record  has  been  READ,  the  next  time  the  READ  statement  is 
executed    the  AT  END  series  of  verbs  is  executed.    Care  should  be  exercised  to 
insure  that  once  the  AT  END  condition  arises  the  file  is  never  READ  again 
except  when  another  file  immediately  follows  the  one  just  processed.    If  a 
record  was  actually  READ,  the  period  (after  the  AT  END  series  of  verbs)  is 
executed . 

EXAMPLE: 

'^^^"at'^END^OVL  'OFF'  TO  WS-READ-END-OF-FILE-SWITCH 

GO  TO  1450- PARA-EX IT. 
MOVE  IM03-NAME  TO  WS-NAME. 
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In  the  example,  a  card  will  be  READ  each  time  the  READ  statement  is  executed. 
After  the  last  card  is  READ  and  the  statement  is  executed  once  more,  'OFF'  will 
be  MOVED  to  WS-READ-END-OF-FILE-SWITCH  and  control  will  go  to  the  paragraph 
exit.    If  the  AT  END  condition  did  not  occur  when  the  READ  was  executed,  the 
MOVE  statement  following  the  period  after  the  GO  TO  145(8-PARA-EXIT  would  be 
executed.    If  the  period  after  the  GO  TO  1450-PARA-EXIT  was  accidentally 
omitted,  the  MOVE  statement  would  be  considered  part  of  the  AT  END  process  and 
the  statement  after  the  MOVE  would  not  be  executed  following  a  good  READ. 
Likewise,  if  the  period  was  placed  after  the  MOVE  'OFF'  statement,  then  the  GO 
TO  14513-PARA-EXIT  would  be  executed  for  each  good  READ.    Clearly,  placement 
of  period  after  AT  END  is  important  to  program  execution. 

Army  Standard:    (1)  Only  one  READ  per  file  is  normally  required.    This  should 

be  in  a  one  statement  paragraph  that  is  performed  from  the 
needed  places  in  the  program. 
(2)  Never  execute  a  READ  for  a  file  which  has  encountered 
end-of-file  unless  it  has  been  closed  and  reopened  as 
input. 


WRITE 


A  form  of  the  WRITE  verb  is: 

WRITE  file-record  [FROM  record-name]    BEFORE    ADVANCING    data-name  LINES. 

AFTER  integer 

mnemonic -name 

This  form  writes  to  the  printer  or  card-punch.    Each  time  the  WRITE  statement 
is  executed,  the  information  in  the  record  under  the  file  description  is 
written  to  the  device  specified  (either  a  card  punch  or  line  printer).    If  the 
FROM  option  is  included,  the  information  in  the  record-name  is  copied  to  the 
f-'le-record  under  the  file  description  and  then  written.    If  the  punch  is  being 
written  to,  then  the  BEFORE  option  should  be  chosen  if  the  programer  wants  to 
determine  which  punch  pocket  the  cards  should  be  placed  in  after  it  is 
physically  punched.    A  mnemonic  name  associated  with  the  punch  pocket  in  the 
SPECIAL-NAMES  paragraph  is  used  to  select  the  actual  pocket.    If  a  printer  is 
being  written  to,  either  BEFORE  or  AFTER  may  be  used  and  the  corresponding 
writing  will  take  place.    If  BEFORE  is  specified,  then  the  line  being  written 
will  be  written  before  the  spacing.    If  AFTER  is  specified,  then  the  line  will 
be  written  after  the  spacing.    Spacing  is  controlled  by  the  ADVANCING  clause. 
If  a  data-name  is  used,  then  it  must  be  a  non-negative  elementary  numeric  item 
(normally  a  77  entry)  whose  value  lies  between  0  and  99.    If  an  integer  is 
chosen,  the  same  constraints  on  the  values  apply  as  with  the  data-name.    If  a 
mnemonic-name  is  chosen,  then  the  mnemonic-name  used  must  be  defined  in  the 
SPECIAL-NAMES  paragraph  and  associated  with  one  of  the  printer  carriage 
control  channels. 
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EXAMPLES: 

1.  Write  to  the  card  punch: 

SPECIAL-NAMES, 

sen  IS  TO-POCKET-1 . 

'     WRITE  OPiai -CARD-PUNCH  BEFORE  ADVANCING  TO-POCKET-1. 
or 

WRITE  OPiai -CARD-PUNCH. 

2.  Write  to  the  printer. 

SPECIAL -NAMES. 
001  IS  CHANl . 

*      WRITE  OROl-PRINTER-RCD  AFTER  ADVANCING  CHANl. 
or 

WRITE  OR01-PRINTER-RCD  FROM  WS-DETAIL-LINE  AFTER  ADVANCING  2  LINES, 


or 


77    WS-CARR-CONTROL  PIC  99 

VALUE  4. 


*      WRITE  0Rj31 -PRINTER-RCD  BEFORE  ADVANCING  WS-CARR-CONTROL  LINES. 

In  the  first  example,  TO-POCKET-1  is  associated  with  pocket  one  (S01)  in  the 
card  punch     The  write  statement  forces  the  punched  card  to  be  placed  into 
pocLt  1  through  use  of  the  BEFORE  ADVANCING  TO-POCKET-1  clause.    In  the 
second  case  of  writing  to  the  card  punch,  the  programer  simply  allows  the 

lys?em  to  choose  the  pocket  for  the  card  to  be  P^^^.^ti^unchP  'and'are  io 
normally  done  when  two  or  more  types  of  cards  are  being  punched  and  ai^e  ^9^^ 
ke??  separa?!.    When  the  ADVANCING  option  is  used,  an  extra  character  at  the 
left  of  the  record  must  be  reserved  for  the  system       use;  eg     to  punch  an 
80  character  record,  81  characters  must  be  defined  with  the  ^^'^^t  character 
being  a  FILLER.    When  the  BEFORE  ADVANCING  option  is  not  used,  then  only  80 
characters  must  be  defined. 

In  the  second  example.  CHANl  is  associated  with  printer  carriage  channel  1 . 
Pn-ntir  carriage  channel  1  is  almost  always  lined  up  with    ine  six  of  the 
pHntIr  page.    When,  as  in  the  first  WRITE  statement,  the  line  is  written 
AFTER  ADVANCING  CHANl.  the  paper  in  the.printer  is  advanced  ""til  printer 
carriage  channel  1  is  sensed  then  the  line  is  written.    This  allows  the 
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programer  to  begin  headings  at  the  top  of  a  new  page.    In  the  second  case,  the  i 
information  in  WS-DETAIL-LINE  is  moved  to  OR01-PRINTER-RCD  then  OR01-PR1NTER-RCD  ^ 
is  written  after  double  spacing  past  the  last  line.    In  the  third  case,  a  data 
item  is  used  to  determine  the  spacing.    The  value  that  the  printer  is  advanced 
BEFORE  or  AFTER  writing  the  line  depending  on  the  option  chosen.    As  in  the 
card  punch,  whenever  the  ADVANCING  option  is  used,  an  extra  character  on  the 
left  of  the  line  must  be  reserved  for  system  use.    The  IBM  1403  printer  has 
132  printable  positions.    When  ADVANCING  is  used  on  this  device,  133  characters 
must  be  written.    The  first  character  of  the  133  is  used  by  the  system  and  the 
remaining  132  are  printed. 

Another  form  of  the  WRITE  statement  is: 

WRITE  file-record  LFROM  record-name j. 

This  form  is  used  to  write  to  tape  files.    There  is  no  BEFORE  or  AFTER  option. 
The  FROM  clause  is  optional. 

EXAMPLES: 

WRITE  OT01-TAFE-FILE-RCD. 

WRITE  OT01-TAPE-FILE-RCD  FROM  WS-ADD-RECORD. 

In  the  first  example,  all  of  the  information  to  be  written  to  the  tape  file 
had  been  moved  into  OT01-TAPE-FILE-RCD  (the  01  record  description  under  the 
FD  for  the  tape  file)  prior  to  the  WRITE.    In  the  second  case,  the  information  (. 
had  been  moved  from  WS-ADD-RECORD  to  OT01 -TAPE-FILE  RCD  prior  to  WRITE.  "WS- 
ADD-RECORD  would  normally  be  defined  in  the  WORKING-STORAGE  SECTION  somewhere. 

The  last  form  of  the  WRIlE  statement  is: 

WRITE  file-record  [FROM  record-name] 


INVALID  KEY  a  series  of  COBOL  verbs  and  associated  parts  except  IF-ELSE 
( peri  od ) . 

This  form  is  used  to  write  to  disk  files.    File-record  is  the  01  under  the  FD 
for  the  disk  file.    The  FROM  record-name  is  optional  and  is  used  identically 
as  the  other  two  examples.    INVALID  KEY  is  used  to  tell  the  programer  when 
the  disk  file  is  full  and  no  more  records  can  be  written  to  it.    Disks  files 
have  a  definite  amount  of  space  to  hold  the  information  they  are  given.  When 
that  space  is  all  used,  then  the  program  has  to  be  informed  of  it.    This  is 
done  via  the  INVALID  KEY  clause.    When  the  file  is  full  and  one  more  record  is 
written,  the  series  of  COBOL  verbs  and  associated  parts  after  the  INVALID  KEY 
is  executed.    An  IF  verb  cannot  be  one  of  the  verbs  used  in  the  r.eries. 

Army  Standard:    (1)  Only  one  WRITE  for  each  record  of  a  different  size  should 

be  in  a  program.    Each  WRITE  should  be  a  one  statement 
paragraph  that  is  PERFORMed  from  the  appropriate  places. 
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(2)  For  files  with  several  types  of  records,  it  is  best  to 
define  them  in  WORKING-STORAGE  and  move  them  to  the  record 
area  just  before  the  WRITE. 


DISPLAY 

DISPLAY  is  a  useful  verb  for  debugging  the  program.    It  should  be  used  to 
print  Intermediate  results  and  values  during  the  run  of  a  program.    It  relieves 
the  programer  of  defining  a  printer  file  during  the  debugging  process  and 
then  having  to  pull  all  of  the  cards  defining  that  file  out  of  the  program 
after  the  debugging  phase  is  over.    Its  form  is: 

DISPLAY  a  series  of  literals  (things  enclosed  in  quotes)  and  data-names. 

If  the  series  is  over  120  characters  in  length,  only  120  characters  will  be 
printed  on  a  line  and  the  rest  will  be  printed  on  the  next  line. 

EXAMPLE: 

DISPLAY  'NEW  MASTER  RECORD  IS:  '  0Mi31 -NEW-MASTER-RECORD. 

This  example  will  print  the  literal  'NEW  MASTER  RECORD  IS:  '  followed  by  the 
characters  in  the  OM01 -NEW-MASTER-RECORD  all  on  one  line.    Because  the  literal 
is  22  characters  long,  the  number  of  characters  in  OM01 -NEW-MASTER-RECORD  that 
can  be  printed  on  the  printer  is  98.    If  OM01 -NEW-MASTER-RECORD  is  longer  than 
98  characters,  then  only  the  first  98  characters  are  printed  on  this  line  and 
the  rest  are  printed  on  the  next  line.    Each  time  a  DISPLAY  is  executed,  the 
contents  of  the  series  of  literals  and  variables  are  begun  on  a  new  line 
single  spaced  after  the  last  line.    There  is  no  way  to  gd  to  the  top  of  a 
page  with  a  DISPLAY  statement.    Double  spacing  can  be  achieved  by  simply 
displaying  a  blank  before  or  after  each  real  DISPLAY. 

EXAMPLE: 


DISPLAY  'TOTAL  NUMBER  OF  PEOPLE  IS:  '  WS-PEOPLE-TOTAL. 

This  example  prints  a  blank  line  then  a  line  giving  the  total  people  message. 

Army  Standard:    Display  should  only  be  used  as  a  debugging  tool  except  in 
communications  with  the  operator. 

EXHIBIT  (IBM  Extension) 

The  EXHIBIl  verb  is  another  debugging  tool.    Its  form  is: 

EXHIBIT   NAMED       series  of  data-names  and  literals. 
CHANGED 
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This "verb  formats  each  of  the  data-names  into  a  DATA- NAM E= value,  form.  These 
are  spread  out  across  the  page.    If  the  list  is  too  long  to  fit  on  one  line, 
then  it  is  carried  over  to  the  next  line.    When  the  EXHIBIT  NAMED  form  is 
used,  then  every  data-name  in  the  list  is  listed  each  time  the  EXHIBIT  is 
excuted.    When  the  EXHIBIl  CHANGED  form  is  used,  all  of  them  are  reported  the 
first  time  the  verb  is  executed.    The  next  time  the  verb  is  executed,  only 
those  data-names  that  have  changed  since  the  last  execution  are  listed. 

Army  Standard:    EXHIBIT  should  only  be  used  as  a  debugging  tool. 
EXAMPLE:  ,  . 

EXHIBIT  NAMED  WS-DlVISION-HOLD  WS-LINE-COUNT. 
EXHIBIl  CHANGED  WS-DIVISlON-HOLD  WS-LINE-COUNT. 

In  the  first  example,  WS-DIVISiON-HOLD  and  WS-LINE-COUNT  will  be  listed  each 
time  the  statement  is  executed.    In  the  second  example,  both  WS-DIVISION-HOLD 
and  WS-LINE-COUNT  are  printed  the  first  time  the  EXHIBIT  is  executed.  From 
then  on  whenever  the  statement  1s  executed,  only  the  data  item  that  has  changed 
(one  or  both)  will  be  printed.    If  neither  one  has  changed,  then  nothing  is 
pri  nted . 

OPEN 

The  OPEN  verb  is  used  to  prepare  the  files  for  input  or  output.    Execution  of 
this  verb  must  precede  the  execution  of  any  READ  or  WRITE  statement.  Its" 
form  is: 

OPEN    INPUT     one  or  more  file-names  to  be  opened  as  either  INPUT  or  OUTPUT 

INPUT  one  or  more  file-names  to  be  opened  as  either  INPUT  or  OUTPUT...] 
OUTPUT 

EXAMPLES: 

OPEN  INPUT  PAY-MASTER-FILE. 
OPEN  INPUT  CARD-READER  DISK-FILE 
OUTPUT  PRINTER  NEW-DISK-FILE. 
OPEN  OUTPUT  CARD-PUNCH  PRINT-FILE. 

The  first  example  opens  the  PAY-f-lASTER-FILE  as  an  input  file  and  prepares  that 
file  for  processing.    The  second  example  opens  the  CARD-READER  and  DISK-FILE 
as  input  files  then  opens  the  PRINTER  and  NEW-DISK-FILE  as  output  files.  The 
third  example  opens  the  CARD-PUNCH  and  PRINT-FILE  as  output  files.  Care 
should  be  exercised  not  tp  open  a  file  more  than  once  unless  a  CLOSE  (described 
next)  for  that  file  has  been  executed  in  the  interim.    It  is  completely  legal 
and  necessary  sometimes  to  OPEN  a  file  as  output  then  when  processing  is 
complete  on  that  file,  to  close  it  and  open  it  as  input.    All  of  the  file 
names  must  be  described  in  an  FD  in  the  FILE  SECTION. 
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Army  Standard:    As  many  files  as  possible  should  be  opened  by  one  OPEN 

e+a•^^an1or\■^ . 


Statement. 
CLOSE 


The  CLOSE  verb  is  used  to  disassociate  a  file  with  a  program.    Before  the 
nroqram  is  finished  execution,  all  of  the  files  currently  open  should  be 
?Tosed     If  it  is  necessary  to  access  a  file  as  both  input  and  output  at 
different  times,  a  CLOSE  statement  must  be  executed  between  the  two  types  of 
access.    The  form  of  the  CLOSE  verb  is: 

CLOSE  one  or  more  file-names 

EXAMPLES: 

CLOSE  INPUT-MASTER  PRINTER. 
CLOSE  PRINTER. 
CLOSE  CARD-READER 
DISK-FILE. 

All  of  the  examples  simply  CLOSE  the  list  of  files  after  the  CLOSE  verb. 

Army  Standard:    As  many  files  as  possible  should  be  closed  by  one  CLOSE 
statement. 

LOGIC  FLOW  CONTROL  VERBS 

Paragraph  names,  while  not  verbs,  are  used  by  thejogic  conti^l  verbs 
branching.    They  are  A  margin  entries  and  are  used  to  identify  logically 
significant  points  in  the  program.    They  follow  the  same  naming  convention 
as  data  names;  however,  they  may  be  completely  numeric  also.    This  Is  not 
recommended.    They  are  ended  with  a  period. 

EXAMPLES : 

0170-READ-AND-PRINT. 


0170-RAP-EXIT. 

IF  is  used  to  make  decisions  during  the  execution  of  the  program.  Its  form  is 
IF  condition  any  series  of  legal  COBOL  verbs  and  associated  parts. 
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EXAMPLE: 


IF  IM01 -SOC-SEC-NUM  EQUAL  TO  IT01 -SOC-SEC-NUM 

PERFORM  01^)ja-UPDATE-ROUTINE  THRU  .01  j30-UPDATE-EXIT 
PERFORM  020JD-READ-NEW-MASTER  THRU  02jDja-READ-EXIT 
PERFORM  0300-READ-UPDATE  THRU  030j3-READ-EXIT. 

In  the  above  example,  if  IM01 -SOC-SEC-NUM  is  equal  to  IT01 -SOC-SEC-NUM,  then 
the  0100-UPDATE-ROUTINE  is  PERFORMed,  the  j!)2ja0-READ-NEW-MASTER  routine  is 
PERFORMed,  then  the  jS3jaj3-READ-UPDATE  routine  is  PERFORMed.    The  entire  series 
is  executed  only  if  the  condition  is  true.    If  the  condition  is  not  true, 
then  the  sentence  after  the  period  ending  the  IF  is  executed.    It  is  important 
to  note  that  the  first  period  after  the  IF  ends  that  IF  statement. 

EXAMPLE: 

IF  A  IS  LESS  THAN  j3 
ADD  1  TO  X 
ADD  2  TO  Y. 
ADD  3  TO  Z. 

IF  A  IS  LESS  THAN  0 
ADD  1  TO  X. 
ADD  2  TO  Y 
ADD  3  TO  Z. 

NOTE:    Army  naming  convention  is  not  used  for  this  example  for  illustrative 
purposes. 

In  the  first  case,  if  A  is  less  than  zero,  one  is  added  to  X  and  two  is  added 
to  Y  then  three  is  added  to  Z.    If  A  is  not  less  than  zero,  the  adds  to  X  and 
Y  are  skipped,  then  three  is  added  to  Z.    The  period  ends  the  control  of  the 
IF.    When  the  condition  after  the  IF  is  true,  the  statements  under  control  of 
the  IF  (e.g.,  the  statements  between  the  condition  and  the  period)  are  executed. 
When  the  condition  is  not  true,  the  statements  under  control  of  the  IF  are 
skipped  and  execution  begins  with  the  first  statement  after  the  period. 

In  the  second  case,  if  A  is  less  than  zero,  one  is  added  to  X,  the  two  is 
added  to  Y,  and  three  is  added  to  Z.    If  A  is  not  less  than  zero,  the  add  to 
X  is  skipped,  then  two  is  added  to  Y  and  three  is  added  to  Z. 

Periods  are  very  important  in  the  logical  construction  of  an  IF  statement. 
The  omission  or  addition  of  a  period  can  radically  effect  the  execution  of  a 
program. 

EXAMPLE: 

IF  A  IS  LESS  THAN  B 

ADD  1  TO  A-COUNT 

GO  TO  A-EXIT. 
ADD  1  to  B-COUNT.  215 


or 
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IF  A  IS  LESS  THAN  B 

ADD  1  TO  A-COUNT. 

QO  TO  A-EXIT. 
ADD  1  TO  B-COUNT. 

NOTE:    Army  naming  conventions  are  not  used  in  this  example  for  illustrative 
purposes . 

In  the  first  case,  the  branch  to  A-EXIT  is  only  taken  if  A  is  less  than  B. 
If  A  Is  not  less  than  B,  then  the  statement  after  the  period  ending  the  IF  is 
executed  (ADD  1  TO  B-COUNT).    In  the  second  case,  if  A  is  less  than  B  or  not 
less  than  B,  the  branch  to  A-EXIT  is  executed  since  the  period  ending  the  IF 
statement  is  after  the  AUD  1  TO  A-COUNT.    B-COUNT  will  never  be  incremented 
since  execution  cannot  reach  that  point. 

Another  form  of  the  IF  statement  is: 

IF  condition  any  series  of  COBOL  verbs  with  associated  parts  (no  periods) 

ELSE  any  series  of  COBOL  verbs  with  associated  parts. 

EXAMPLE: 

IF  IM01 -DIVISION  NOT  =  WS-DI VISION-SAVE 
OR  WS-LINh-COUNT  GREATER  THAN  45 

PERFORM  0150-HEADIN6-ROUTINE  THRU  0150-HEADIN6-EXIT 
MOVE  1  TO  WS-LINE-COUNT 

-ELSE 

ADD  1  TO  WS-LINE-COUNT. 
MOVE  IM01-NAME  TO  WS-NAME. 

Tn  thp  ahovp  PxamolG    the  first  condition  was  made  up  of  two  parts  (a  compound 
cSnSnionrconsis?]ng  of  ImJ^-DIVISION  NOT  =  WS-DIVISION-SAVE  and  WS-LINE-COUNT 
GREATER  THAN  4b.    The  OR  between  the  two  tests  means  that  if  either  (or  both; 
of  the  tests  is  true,  then  everything  until  the  ELSE  is  to  be  executed  in 
order.    If  both  of  the  tests  are  false,  then  everything  after  the  ELSE  will  be 
executed  Instead.    Then  control  is  given  to  the  sentence  after  the  period  (a 
MOVE  statement). 

Another  connector  between  tests  is  the  word  AND.    AND  indicates  that  both 
conditions  have  to  be  true  for  the  statements  under  the  IF  to  be  executed  If 
they  are  not  true  (either  or  both)  then  execution  is  given  to  the  statements 
after  the  ELSh  if  present.    If  there  is  no  ELSE  associated  with  the  IF,  then 
execution  goes  to  the  first  statement  after  the  period  ending  the  IF. 
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EXAMPLE : 


IF  IM01-DIVISION  =  WS-DIVISION-SAVE 

AND  IM?n-SOC-SEC-NUM  EQUAL  TO  ITl?n-SOC-SEC-NUM 
PERFORM  01(Z)l-UPOATE-ROUTINh  THRU  0101-UPDAlE-EXIT 

ELSE  IF  IM0I -DIVISION  =  WS-DlVISION-SAVE 

AND  IM01-SOC-SEC-NUM  GREATER  THAN  IT20I-SOC-SEC-NUM 
PERFORM  I8102-ADD-ROUTINE  THRU  0102-ADD-EXIT. 

MOVE  IM01-NAME  TO  WS-NAMt. 


In  the  above  example,  the  first  IF  has  a  compound  condition  consisting  of 
whether  IM01 -DIVISION  was  EQUAL  TO  WS-DIVISION-SAVE  AND  also  whether  IM0I-SOC- 
SEC-NUM  was  EQUAL  TO  IT101-SOC-SEC-NUM.    If  both  tests  were  true,  then  0101- 
UPDATE- ROUTINE  is  PERFORMed.    If  either  or  both  tests  were  false,  then  the 
statements  after  the  ELSE  are  executed.    The  second  IF  also  is  made  up  of  two 
tests:    whether  IM01 -DIVISION  is  EQUAL  TO  WS-DIVISION-SAVE  AND  whether  IM01-  - 
SOC-SEC-NUM  is  GREATER  THAN  IT201-SOC-SEC-NUM.    If  both  tests  were  true,  then 
0102-ADD-ROUTINE  is  PERFORMed.    If  either  or  both  of  the  tests  were  false, 
then  the  MOVE  statement  after  the  period  ending  the  entire  IF  is  executed. 
Notice  that  everything  from  the  first  IF  to  the  final  period  is  all  one  sentence 
(one  logical  construction).    If  any  period  nad  been  in  the  middle  of  the 
sentence,  then  the  IF  will  have  ended  there.    Periods  are  very  important  things 
in  IF  statements.    Notice  also  that  one  can  (and  many  times  should)  put  another 
IF  as  one  of  the  COBOL  verbs  whose  execution  depends  on  the  trueness  or  false- 
ness of  the  original  IF.    This  is  called  nesting  IF's.    In  the  above  example, 
the  test  for  equality  between  OM01 -DIVISION  and  WS-DIVISION-SAvE  is  made  twice,  i 
An  example  of  how  to  avoid  this  and  stUl  have  the  same  logical  construction 
is  given  below. 

EXAMPLE: 


IF  IM01-DIVISIUN  =  WS-DIVISIUN-SaVE 

IF  IM01-SOC-StC-NUM  =  IT101-SOU-SEC-NUM 

PERFORM  01 01 -UPDATE-ROUTINE  THRU  0101-UPDAl E-EXIT 

ELSE 

IF  IM01-SOC-St:C-NUM  GREATER  THAN  IT201 -SOC-SEC-NUM 
PhRFORM  0102-ADD-ROUTINE  THRU  0102-AUD-EXIT. 
MOVE  IM01-NAME  TO  WS-NAME. 

In  the  above  example,  the  first  IF  has  only  one  test:    wnether  IM01-DIVI5ION 
is  EQUAL  TO  WS-DIVIblON-SAVE.    Everything  else  in  the  sentence  is  dependent 
on  the  trueness  or  falseness  of  that  test.    If  it  was  false,  then  control  is 
given  to  the  MUVE  statement  after  the  period.    If  is  was  true,  then  the 
second  IF  is  executed.    If  tne  second  condition  was  true,  then  0101-UPDATE- 
ROUTInE  is  PERFORMed.    After  0101-UPUATE-ROUTINE  is  finished,  control  is 
given  to  the  MOVE  statement  after  the  period.    If  the  second  condition  is 
false,  then  the  third  IF  is  executed.    If  that  condition  is  true,  then  0102- 
ADD-ROUTiNE  is  PERFORMed.    After  0102-ADD-RUUTINE  is  finished,  control  is 
given  to  the  MOVE  statement  after  the  period.    Notice  that  the  first  and 
third  IF's  have  no  ELSE  associated  with  them.    The  rule  for  matching  IF's  with 
ELSE'S  is  that  an  ELSE  is  associated  with  the  first  possible  IF  above  the  ELSE. 
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This  allows  the  programer  to  build  very  complex  logical  constructions  with 
compound  conditions  and  nested  IP's.    Tremendous  care  should  be  exercised  when 
designing  these  constructions. 

If  necessary,  parentheses  should  be  .used  in  compound  conditions  to  assure 
evaluation  in  the  proper  order.    If  OR  and  AND  are  used  in  the  same  compound, 
then  the  AND  test  is  evaluated  first. 

EXAMPLE: 

IF  A  IS  NO!  GREATER  THAN  B 
OR  A  +  B  IS  EQUAL  TO  C 
AND  D  IS  POSITIVE 

will  be  evaluated  as  though  it  were  parenthesized  as  follows: 

IF  (A  IS  NOT  GREATER  THAN  B) 
OR  ((lA  +  B)  IS  EQUAL  TO  C) 
AND  (D  IS  PUSITIVE)) 

NOTE:  Army  naming  conventions  are  not  used  for  these  examples  for  illustrative 
purposes . 

The  use  of  parentheses  never  will  hurt  a  program's  efficiency  and  can  only  add 
to  the  clarity  of  what  the  programer  is  trying  to  do.    Also  when  going  from 
one  computer  to  another  manufacturers  computer,  the  evaluation  rules  could 
conceivably  differ.    With  parentheses,  there  is  no  doubt  for  either  the  compile 
or  another  programer  having  to  make  changes  to  the  program  in  the  absence  of 
the  original  programer. 

If  at  some  point  inside  the  nested  IF's  the  programer  would  like  to  simply 
exit  from  the  entire  construction  and  go  to  the  sentence  after  the  period,  the 
COBOL  reserved  phrase  NEXT  SENTENCE  may  be  used. 

EXAMPLE: 

IF  condition-1 

IF  condition-2 

IF  condition-3 
NEXT  SENTENCE 

ELSE 

IF  condition-4 


ELSE 'next  SENThNCE 

ELSE 

IF  condition-b 
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In  the  above  example,  if  conditions  1,  2.  and  3  are  true,  then  control  is 
simply  given  to  the  sentence  after  the  period  (the  periods  inside  the  nested 
IP's  in  the  example  only  indicate  a  series  of  COBOL  verbs  and  associated  parts). 
If  conditions  1  and  2  are  true  and  conditions  3  and  4  are  false,  then  again 
control  is  simply  passed  to  the  sentence  after  the  period.    If  condition  1  is 
false,  then  the  associated  ELSE  means  to  execute  the  sentence  after  the 
period.    The  last  ELSE  NEXT  SENTENCE  (period)  is  superfluous  and  was  included 
to  show  the  point.    If  the  ELSE  was  not  there  and  condition  1  was  false, 
control  would  be  given  to  the  sentence  after  the  period  anyway.    Some  programers 
consider  it  good  practice  to  match  all  IF  verbs  with  an  ELSE  even  if  the  ELSE 
is  superfluous  as  in  this  case.    If  NEXT  SENTENCE  is  put  immediately  after  an 
ELSE  or  the  conditions  following  an  IF,  no  other  verb  except  ELSE  may  follow 
it.    Putting  NEXT  SENTENCE  after  a  series  of  verbs  and  associated  parts 
simply  tells  the  compiler  to  do  what  it  would  have  done  anyway. 

EXAMPLE : 

IF  condition-1 


NEXT  SENTENCE 

ELSE 


^     In  the  above  example,  NEXT  SENTENCE  is  unnecessary.    Control  will  go  to  the 
next  sentence  anyway. 

88  level  items  can  be  used  in  conjunction  with  an  IF. 
EXAMPLE: 

03    WS-PAY  PIC  9(6)V99. 

88  SMALL  VALUE  .00  THRU  100.00. 


^PERFORM  0505-SMALL-PAY-PROCESSING  THRU  0505-SMALL-EXIT 
ELSE 


is  equivalent  to: 

IF  (WS-PAY  EQUAL  TO  .00  OR  WS-PAY  GREATER  THAN  .00) 

AND  (WS-PAY  LESS  THAN  100.00  OR  WS-PAY  EQUAL  TO  100.00) 
PERFORM  0505-SMALL-PAY-PROCESSING  THRU  0505-SMALL-EXIT 

ELSE 
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Clearly  it  is  more  convenient  to  use  the  88  level  item  and  there  is  the  added 
benefit  of  being  able  to  change  the  ranges  of  things  being  tested  for  by 
simply  changing  one  card.    88's  also  increase  the  readability  of  the  program 
and  are  self  documenting  with  properly  chosen  names. 

Army  Standard: 

(1)  Use  of  the  nested  IF  other  than  by  the  original  programer  is  prohibited 

(2)  Compound  conditions  requiring  use  of  both  AND  and  OR  are  prohibited. 

(3)  NOT  will  not  be  used  in  compound  conditions. 

(4)  Avoid: 

(a)  Using  the  NUMERIC  and  ALPHABETIC  test  unnecessarily. 

(b)  Comparing  numberic  items  with  different  number  of  decimal  places. 
Move  one  of  the  items  to  a  holding  field  that  has  the  same 
PICTURE  instead. 

(c)  Comparing  non-numeric  items  with  different  size  PICTURES. 

(d)  Comparing  group  items  that  have  unused  areas  in  them. 

(e)  Using  the  phrase  ELSE  NEXT  SENTENCE  unless  it  is  in  a  nested  IF. 

(5)  Do  not  specify  a  GO  TO  in  and  IF  that  goes  to  some  code  then  returns 
the  statement  after  the  IF.    Use  a  PERFORM  instead  or  incorporate  the 
code  into  the  IF  itself. 

(6)  NEXT  SENTENCE  can  often  be  avoided  by  reversing  the  condition  in  the 
IF  (using  a  NOT). 

(7)  Don't  test  the  same  data  item  for  the  same  value  once  you  have 
determined  what  the  value  is. 

(8)  Try  to  test  for  ranges  of  values  instead  of  specific  values,  when 
appropriate. 

(9)  Don't  use  the  ALPHABETIC  test.    Use  IF... NOT  NUMERIC  instead. 

EXAMPLES:  More  efficient  Less  efficient 

#1  IF  A  EQUALS  B  IF  A  EQUALS  B 

MOVE  X  TO  Y  60  TO  C. 

PERFORM  Z  THRU  Z-EXIT.      D.  MOVE  ... 
MOVE  ... 


C.  MOVE  X  TO  Y. 

PERFORM  Z  THRU  Z-EXIT. 
GO  TO  D. 


#2 

IF  A  NOT  EQUAL  TO  B 
MOVE  C  TO  D. 

IF  A  EQUALS  B 

NEXT  SENTENCE 
ELSE  MOVE  C  TO  D. 

#3 

IF  A  EQUALS  1 
MOVE  X  TO  B 

ELSE 

IF  A  EQUALS  7 
MOVE  Y  TO  B 

ELSE 

IF  A  EQUALS  9 
MOVE  Z  TO  B. 

IF  A  EQUALS  1 
MOVE  X  TO  B. 

IF  A  EQUALS  7 
MOVE  Y  TO  B. 

IF  A  EQUALS  9 
MOVE  Z  TO  B. 
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IF  A  LESS  THAN  5 
IF  A  LESS  THAN  1 

PERFORM  C  THRU  C-EXIT 
ELSE 

PERFORM  B  THRU  B-EXIT 

ELSE 

PERFORM  C  THRU  C-EXIT 


IF  A  EQUALS  1 

PERFORM  B  THRU  B-EXIT. 
IF  A  EQUALS  2 

PERFORM  B  THRU  B-EXIT. 
IF  A  EQUALS  3 

PERFORM  B  THRU  B-EXIT. 
IF  A  EQUALS  4 

PERFORM  B  THRU  B-EXIT. 
IF  A  LESS  THAN  1 

PERFORM  C  THRU  C-EXIT. 
IF  A  GREATER  THAN  4 

PERFORM  C  THRU  C-EXIT. 


PERFORM 

The  PERFORM  statement  has  a  number  of  forms  each  having  its  own  application. 
They  will  be  discussed  in  detail  one  at  a  time.    The  basic  concept  of  a 
PERFORM  is  common  for  all  of  them.    While  writing  a  program,  that  program  can 
always  be  broken  up  into  several  discrete  parts  which  function  independently 
of  each  other.    The  main  control  section  of  the  program  simply  Qives  control 
to  the  appropriate  part  at  the  appropriate  time  through  a  series  of  PERFORM 
statements.    When  the  part  that  has  been  given  control  is  finished,  control  is 
given  to  next  COBOL  verb  after  the  PERFORM  statement. 

EXAMPLE: 

PERFORM  01(J0-ADD-ROUTINE  THRU  0100-ADD-EXIT. 
CLOSE  ADD-FILE. 


01|3J)-ADD-RTN. 

MOVE  IT01-ADD-RCD  TO  OM01 -NEW-MASTER-RECORD. 

WRITE  OM01 -NEW-MASTER-RECORD. 
(9100-ADD-EXIT.  EXIT. 
0200-SUBTRACT-RTN. 

In  the  above  example,  when  control  is  passed  to  the  PERFORM  ^1  ™U 
j310O-ADD-EXIT  statement,  the  PERFORM  statement  passes  contro    Jo  0100-ADD-RTN. 
IT01-ADD-RCD  is  moved  to  OMpI -NEW-MASTER-RECORD  and  then  OMjai-NEW-MASTER-RECORD 
is  written.    As  soon  as  the  0100-ADD-EXIT  paragraph  is  executed,  the  COBOL  verb 
EXIT  tells  the  machine  to  transfer  control  back  to  the  PERFORM  which  passed 
control  to  thee  0100-ADD-RTN.    The  PERFORM  then  passes  control  to  the  next 
COBOL  verb  after  the  PERFORM  (CLOSE  ADD-FILE).    The  PERFORM  is  really  a    go  do 
this  then  come  back  when  your  finished'  verb.    A  simpler  version,  but  less 
preferable,  is: 
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PERFORM  |Zn00-ADD-RTN. 
CLOSE  ADD-FILE 


0100-ADD-RTN. 

MOVE  ADD-RECORD  TO  NEW-MASTER-RECORD. 

WRITE  NEW-MASTER-RECORD. 
0P2!a-SUBTRACT-RTN. 

Army  Standard:    An  EXIT  paragraph  should  always  be  the  last  paragraph  in  a 
PERFORM  statement. 

In  the  above  example,  exactly  the  same  thing  happens  as  the  last  example. 
While  before  the  EXIT  was  explicitly  defined  in  the  PERFORM  statement  and 
written  a?  ?he  end  of  the  paragraph  that  was  being  PERFORMED    this  time  the 
EXIT  is  implied  to  be  at  the  end  of  the  ADD-RTN  paragraph  just  before  the 
next  paragraph  name  (0200-SUBTRACT-RTN. )  and  after  the  last  period  at  the  end 
2f  the  last  sentence  in  ADD-RTN  (WRITE  NEW-MASTER-RECORD.).    It  is  good 
?^og?Ling  procedure  to  always  use  an  explicit  ^XIT  and  PERFORM  a  paragraph 
through  that  EXIT.    This  makes  the  program  more  readable  and  makes  the  job  of 
a  maintenance  programer  fixing  the  program  at  a    ater  ^^^^^J^^^^^I^^^S-  J^^ 
reason  for  this  will  become  clearer  during  the  discussion  of  the  Gu  TO  verb. 

Another  form  of  the  PERFORM  verb  is:  - 

PERFORM  paragraph-name  [THRU  paragraph-exit] 
^TiTlL  condition. 

This  form  will  PERFORM  the  paragraph  ^^many  times  as  necessary  te^  the 
condition  true.    This  form  can  make  an  indefinite  loop  if  the  condition  is 
never  true.    An  example  of  this  would  be  if  the  condition  was  A  =  B  AND  A  NOT  - 
S     This  c^n  never  be  true  so  the  paragraph  will  be  executed  forever  or  until 
the  operator  gets  tired  of  looking  at  the  program  executing.    Clearly,  this 
is  not  a  desirable  thing  to  do.    Care  should  be  used  to  insure  that  the 
condition  will  be  made  true  at  some  point  in  the  processing.    If  the  condition 
is  true  when  the  PERFORM  is  executed,  then  the  paragraph  is  never  executed  at 
all  and  control  passes  to  the  next  verb.    The  condition  may  be  an  88  level 
item.    See  the  IF  statement  discussion  for  what  it  means. 

Army  Standard:    (1 )  Always  use  PERFORM, . .THRU.  DrornoM 
^  (2)  Always  execute  the  EXIT  paragraph  to  return  to  the  PERFORM, 

EXAMPLE: 

01       WS-EOF-TABS.  nr,.    V   WA.  MC  .ft. 

03  MASTER-EOF-SWlTCH  PIC  X  VALUE  'IZ)'. 

88  MASTER-DONE  VALUE  'T. 

PERFORM  ;)01|9-PARA-1  THRU  0010-PARA-EXIT 
UNTIL  MASTER-DONE. 
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This  example  will  PERFORM  0010-PARA-l  THRU  0010-PARA-EXIT  until  'T  is  moved  to 
WS-MASTER-EUF-SWITCH.    When  this  happens,  the  88  under  WS-MASTER-EOF-SWITCH 
becomes  true  and  the  UNTIL  is  satisfied. 

PERFORM  paragraph- name  [THRU  paragraph-exit] 
rTTlMES. 

This  form  of  the  PERFORM  verb  will  PERFORM  the  paragraph  a  fixed  number  of 
times  where  n  is  an  integer  that  specifies  how  many  times  the  paragraph  is  to 
be  executed.    If  n  is  a  variable,  then  it  must  be  an  integer. 

EXAMPLE: 

77  PERFORM-COUNT  PIC  S9(4) 

USAGE  IS  COMP 
VALUE  IS  +20 
SYNC. 

PERFORM  5001-PARA-l  THRU  5001 -PARA-EXIT 
PERFORM-COUNT  TIMES. 

or 

PERFORM  5001-PARA-l  THRU  5001 -PARA-EXIT 
20  TIMES. 

Both  of  the  examples  do  the  same  thing.  They  will  PERFORM  5001-PARA-l  through 
5001 -PARA- EX IT  20  times. 

The  last  form  of  the  PERFORM  verb  is: 

PERFORM  paragraph- name  [THRU  paragraph-exit] 
VARYING  name-1  FROM  vaTue-l  BY  value-2 
UNTIL  condition. 

Ihis  form  will  initialize  name-1  (index-name-1  or  numeric-data-item-1 )  to 
value-1  (integer-1,  index-name-2 .  or  numeric-data-item-2)  and  test  the 
condition  (a  simple  or  compound  condition).    If  the  condition  is  false,  the 
paragraph  is  PERFORMed.    When  the  paragraph  is  done  the  first  time,  name-1  is 
incremented  by  value-2  (integer-2,  index-name-3,  or  numeric-data-i tem-3)  and 
the  condition  is  tested  again.    This  process  of  PERFORMing  the  paragraph, 
incrementing  name-1  and  testing  the  condition  continues  until  the  condition  is 
true.    If  the  condition  is  true  when  the  PERFORM  is  executed  the  first  time, 
then  control  immediately  passes  to  the  next  verb  and  the  paragraph  is  never 
performed . 

EXAMPLE: 

PERFORM  0100-PARA-l  THRU  0100-PARA-EXIT 
VARYING  TABLE- INDEX  FROM  1  BY  1 
UNTIL  TABLE-INDEX  IS  GREATER  THAN  25. 
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This  example  initializes  TABLE-INDEX  to  1,  then  tests  whether  TABLE-INDEX  is 
greater  than  25.    If  it  is  not  so,  0100-PARA-l  is  executed.    When  control 
finally  reaches  {3100-PARA-EXIT.  TABLE-INDEX  is  incremented  by  1  (giving  2), 
and  the  condition  is  again  evaluated.-  TABLE-INDEX  is  still  not  greater  than 
25.  so  01S50-PARA-1  again  gets  control;  however,  TABLE-INDEX  is  now  equal  to 
2.    This  type  of  PERFORM  is.  very  useful  in  searching  tables  for  an  entry. 
More  of  how  to  use  this  form  will  be  discussed  in  the  section  on  tables. 

EXIT 


EXIT  is  a  verb  that  provides  a  way  to  terminate  a  paragraph  being  PERFORMed 
and  then  return  to  the  PERFORM  statement  for  further  processing  if  necessary. 
It  can  be  the  only  thing  after  the  paragraph-name  other  than  comments  ('*' 
in  column  7)  until  the  next  paragraph-name. 

GO  TO 


The  GO  TO  is  the  most  abused  single  verb  in  COBOL.    When  an  error  is  found  m 
a  program,  the  average  programer  immediately  begins  to  think  in  terms  of 
GOing  somewhere  else.    This  leads  to  many  unpredictable  results  initially  and 
usually  has  some  hidden  implications  that  may  not  show  up  until  the  next 
programer  has  to  repair  the  program  again.    A  study  was  done  to  try  to 
determine  the  cause  of  COBOL  logical  errors.    The  result  of  this  study  was  to 
find  the  60  TO  guilty  of  the  vast  majority.    In  this  context,  this  text  will 
present  the  way  a  GO  Tu  ma^  be  used  and  then  place  several  large  constraints 
on  hw  to  use  it.    The  form  of  the  GO  TO  is: 

GO  TO  paragraph-name. 

EXAMPLE: 

GO  TO  01 00- PARA- 1 . 

In  this  example,  the  sentence  immediately  following  0100^PARA-I  will  be 
executed.    Indiscriminate  use  of  this  type  of  statement  can  lead  to  spaghetti 
logic  that  is  hard  to  debug  and  repair  at  a  later  date.    A  much  more  restric- 
tive use  is: 

EXAMPLE : 

GO  TO  0100-PARA-EXIT. 

This  is  the  only  type  of  GO  TO  allowed  in  'structured'  programing.    In  a 
given  paragraph,  the  programer  can  only  go  to  the  EXIT  of  that  paragraph. 
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EXAMPLE: 


0525-PARA-l . 

IF  LINE-COUNT  GREATER  THAN  20 
GO  TO  0525-PARA-EXIT. 


0525-PARA-EXIT.  EXIT. 

This  type  of  limitation  requires  th^it  each  paragraph  be  entered  via  a  PERFORM 
statement.    Most  paragraphs  won't  need  a  GO  TO  in  them  at  all.    However,  at 
some  future  date,  another  programer  may  find  it  necessary  to  put  one  in.  To 
keep  the  program  compatable,  the  initial  programer  should  always  have  an  EXIT 
for  each  paragraph  and  PERFORM  THRU  that  exit.    If  the  PROGRAM  was  filled  with 
a  mixture  of  PERFORMS  and  PERFORM  THRUs  and  suddenly  another  programer  needed 
to  change  one  of  the  PERFORMS  to  a  PERFORM  THRU,  all  of  the  PERFORMS  for  that 
paragraph  would  have  to  be  changed,  leading  to  a  lot  of  work  and  possible 
source  of  new  problems.    If  all  of  the  paragraphs  have  EXUs,  then  the 
programer  simply  GO  TOs  the  EXIT  and  makes  no  other  changes  to  the  program. 
This  cuts  down  on  maintenance  time,  a  major  cause  of  cost  overrun  on  a  project 
and  also  makes  the  original  programer  spend  more  time  on  the  design  of  the 
program  leading  to  more  trouble  free  code.    Some  programers  complain  that 
COBOL  is  already  too  verbose  and  wordy  and  all  of  these  restrictions  make  his 
job  harder  and  longer.    That  may  be  true,  but  the  real  cost  of  a  program  is 
not  in  the  writing  of  it;  it  is  in  the  maintenance  of  it.    By  forcing  the 
programer  to  conform  to  this  type  of  design  forces  him  to  use  routine  (break 
the  program  up  into  pieces  that  do  discrete,  separate  things).    This  makes  . 
the  problem  clearer  and  the  logic  simpler. 

STOP 

I  his  verb  is  used  to  either  temporarily  halt  a  program  or  to  terminate  it 
altogether.    The  form  of  the  STOP  statement  is: 

STOP  RUN 

quoted-1 i teral 

EXAMPLES: 
STOP  RUN. 

STOP  'MOUNT  24CJ2-TEST-DATA-TAPE ' 

The  first  example  terminates  the  program.    The  second  example  halts  the  ^ 
program  and  types  the  literal  on  the  console  typewriter.    The  operator  will 
then  restart  the  program  after  appropriate  action  has  been  taken  on  the 
message  typed. 

Army  Standard:    (1)  There  should  be  only  one  STOP  RUN  in  the  program.  This 

should  be  a  single  statement  paragraph. 
(2)  All  files  must  be  closed  before  the  STOP  RUN  is  executed. 
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ON  (IBM  EXTENSION) 


The  ON  verb  allows  the  programer  to  specify  when  a  series  of  COBOL  verbs  are 
to  be  executed.    Its  form  is: 

ON  integer-1    [AND  EVERY  integer-2]  [UNTIL  integer-3] 

^ny  series  of  COBUL  verbs  and  associated  parts  except  IF-ELSE 
INEXT  SENTENCEI 

r  /else       T    anyseries  of  COBOL  verbs  including  IF-ELSE 


This  verb  sets  up  a  count-condition.    If  only  integer-1  has  been  specified, 
then  the  count-condition  will  only  be  satisfied  once.    The  count  is  incremented 
by  one  each  time  the  ON  statement  is  executed.    If  the  count-condition  is  not 
satisfied,  the  series  of  COBOL  verbs  after  the  ELSE  is  executed.    If  no  ELSE 
is  specified  and  the  count-condition  is  not  satisfied,  execution  goes  to  the 
next  sentence  after  the  period  terminating  the  ON  statement. 

Army  Standard:    ON  should  only  be  used  during  debugging. 
EXAMPLE: 

ON  1  MOVE  ZEROS  TO  WS-LINE-COUNT 

PERFORM  5626-HEADING-ROUTINE  THRU  5626-HEADING-EXIT. 

ON  10  AND  EVERY  10 

PERFORM  1000-SUB-TOTAL-ROUTINE  THRU  1000-SUB-EXIT. 

ON  1  UNTIL  1000 
READY  TRACE 
ELSE  RESET  TRACE. 

ON  *:5  AND  EVERY  25  UNTIL  975 
NEXT  SENTENCE 

ELSE  PERFORM  0500-PROCESS-ROUTINE  THRU  0500-PROCESS-EXIT 
PERFORM  0600-COUNT-RUUTINE  THRU  0600-COUNT-EXIT. 

The  first  example  executed  the  MOVE  and  PERFORM  the  first  time  the  statement 
is  executed.    The  second  example  will  execute  the  PERFORM  every  ten  times  the 
statement  is  executed.    The  third  example  initiates  a  TRACE  (described  next) 
the  first  1000  times  the  statement  is  executed.    After  the  1000th  time,  the 
ELSE  path  is  taken  and  the  TRACE  is  terminated.    The  fourth  example  simply 
goes  to  the  period  after  the  statement  on  the  25th  time  and  each  subsequent 
25th  time  until  the  ON  statement  has  been  executed  975  times.    If  the 
particular  time  the  ON  is  being  executed  is  not  one  of  the  25th  times  or  is 
past  the  975  limit,  then  the  two  PERFORMS  under  the  ELSE  are  executed.  This 
statement  works  very  similarly  to  the  IF-ELSE  statement  where  the  condition 
is  described  by  the  ON. 
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DEBUGGING 

Tracing  is  a  powerful  tool  for  the  programer.  The  format  of  the  TRACE  state- 
ment is: 


I 


READY?   TRACE     (IBM  EXTENSION) 

EXAMPLES: 

READY  TRACE. 
RESET  TRACE. 

When  the  first  example  is  executed,  the  COBOL  listing  number  (number  to  the 
extreme  left  on  the  listing)  of  the  paragraphs  will  be  listed  on  the  printer 
as  they  are  executed.    Any  lines  the  program  writes  on  the  printer  will  be 
interspersed  at  the  appropriate  places.    This  allows  the  programer  to 
actually  see  the  order  that  the  paragraphs  in  his  program  were  executed  and  to 
hopefully  find  out  why  the  logic  is  going  awry.    The  second  example  turns  off 
the  trace     If  the  trace  is  off  when  it  is  turned  off  again,  nothing  happens. 
Likewise  if  the  trace  is  on  when  it  is  turned  on  again,  nothing  happens. 
The  TRACE  verb  can  generate  a  large  amount  of  paper  and  should  be  used  with 
discretion.    Intermediate  values  can  be  printed  using  the  DISPLAY  verb  or  the 
EXHIBIT  verb  during  the  run  while  using  the  trace  and  a  clearer  picture  of 
what  is  going  on  is  made  available.    A  powerful  use  of  the  TRACE  verb  is  in 
conjunction  with  an  IF. 

Anny  Standard:  READY  TRACE  and  RESET  TRACE  is  only  to  be  used  as  a  debugging 
aid. 


EXAMPLE: 

IF  IM01 -ACCOUNT-NUMBER  =  9546251 
READY  TRACE. 

This  is  used  to  TRACt  beginning  at  a  problem  account  number.  Presumably 
processing  up  to  this  point  has  gone  correctly  and  no  TRACE  was  necessary. 
This  saves  paper -and  processing  time. 


TABLE  HANDLING 

A  table  is  defined  In  the  DATA  DIVISION  via  the  OCCURS  clause.  It  consists 
of  a  series  of  elements  identical  in  form. 
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EXAMPLE:    A  table  of  twenty-five  names: 


looks  like: 

WS-NAMEH 

WS-NAME(2" 

WS-NAME(3 


is  defined  by: 

J31  WS-NAME-TABLE. 
05  WS-NAME 


PIC  X(2JD) 
OCCURS  25  TIMES. 


This  type  of  description  is  useful  for  storing  a  number  of  items  that  are  the 
same  size  but  differ  in  content.    Once  the  description  is  complete,  the 
individual  item  in  the  table  may  be  referenced  with  either  a  subscript  or 
index.    A  subscript  or  index  simply  tells  the  computer  which  one  of  the 
elements  you  want  to  look  at  or  put  something  into. 

EXAMPLE: 

MOVE  WS-NAME  (1)  TO  WS-DETAIL-NAME.  _  , 

'The  number  in  parentheses  is  a  subscript.    It  indicates  to  COBOL  that  you  are 
referencing  the  first  of  the  twenty-five  NAME  entries.    The  thing  in  parentheses 
may  also  be  a  variable. 


EXAMPLE: 
77  WS-SUB 


PIC  S9(2) 


MOVe'i  to  WS-SUB. 

MOVE  WS-NAME  (WS-SUB)  TO  WS-DETAIL-NAME. 

This  example  also  moves  the  first  of  the  twenty-five  NAME  entries  to  NAME-OUT. 
In  this  case,  since  a  subscript  is  used,  the  contents  of  the  subscript  are 
examined  and  are  used  to  indicate  which  of  the  NAME  entries  are  to  be  operated 
on.    When  using  a  subscript,  it  is  important  not  to  let  the  subscript  get 
larger  than  the  maximum  number  of  entires  in  the  table.    If  a  table  must  be 
examined  from  beginning  to  end  looking  for  a  particular  entry,  the  subscript 
may  be  varied  in  increments  of  one. 
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EXAMPLE  (LINEAR  STYLE): 

MOVE  1  TO  WS-SUB. 

MOVE  '0'  TO  WS-FLA6.  ,  - 

A.  IF  IM{31-NAME  EQUAL  TO  WS-NAME  (WS-SUB) 

MOVE  'T  TO  WS-FLA6 

60  TO  B. 
ADD  1  TO  WS-SUB. 
IF  WS-SUB  LESS  THAN  25 

GO  TO  A. 

B.  ADD  1  TO  WS- CARD-COUNT. 

This  example  initializes  WS-SUB  to  1  then  searches  the  name  table  for  a  match 
with  IM01-NAME.    If  a  match  is  found,  WS-FLAG  is  set  to  1 .    If  a  match  is  not 
found  after  all  the  names  have  been  examined,  WS-FLAG  is  set  to  0.  Another 
way  to  do  the  same  thing  is  to  use  the  PERFORM  VARYING  verb. 

EXAMPLE  (STRUCTURED  STYLE): 

MOVE  'iZ)'  TO  WS-FLAG 

PERFORM  010fl-NAME-COMPARE  THRU  01 00- NAME -EX IT 
VARYING  WS-SUB  FROM  1  BY  1 
UNTIL  WS-SUB  IS  GREATER  THAN  25 

OR  WS-FLAG  =  '1 ' 
ADD  1  TO  WS-CARD-COUNT. 


01 00-NAME- COMPARE. 

IF  IM01-NAME  =  WS-NAME  (WS-SUB) 
MOVE  '1 '  TO  WS-FLAG. 
0100-NAME-EXIT.  EXIT. 

This  example  sets  WS-FLAG  to  '0'  then  PERFORMS  01 00-NAME -COMPARE  through 
0100-NAME-EXIT.    During  the  process  of  the  PERFORM,  WS-SUB  is  set  to  1  and 
the  conditions  are  tested.    If  the  conditions  are  "ot  true,  then  01 00-NAME- 
COMPARE  through  0100-NAME-EXIT  are  executed.    After  0100-NAME-EXIT  is 
finished,  WS-SUB  is  incremented  BY  1  and  the  conditions  are  tested.    As  soon 
as  one  of  the  conditions  are  true,  the  PERFORM  statement  is  finished  and  the 
ADD  1  TO  WS-CARD-COUNT  is  executed. 

If  the  table  consists  of  multiple  entry  items  (e.g.,  name  and  social  security 
number),  the  elementary  items  are  referenced  as  though  they  are  subscripted. 


2^  DRAFT  ST  ie-150 


RJC 


EXAMPLE: 


01  WS-NAME-SSN-TABLE. 


j85  WS-NAME-SSN 
10  WS-NAME 
10  WS-SSN 


OCCURS  25  TIMES. 
PIC  X(20). 
PIC  X(9). 


IF  WS-NAME  (WS-SUB)  EQUAL  TO  IM01 -NAME 
MOVE  '1  '  TO  WS-FLAG. 

Even  though  the  description  of  WS-NAME  does  not  contain  an  OCCURS  clause, 
WS-NAME  is  subordinate  to  WS-NAME-SSN  which  does  contain  an  OCCURS  clause. 
This  being  the  case,  WS-NAME  must  be  referenced  as  though  WS-NAME  itself  con 
tained  the  OCCURS.    Another  optional  entry  with  the  OCCURS  clause  is  INDEXED 
BY.    This  clause  specifies  an  index  to  be  used  with  the  particular  table 
defined  by  the  rest  of  the  description. 

EXAMPLE: 

01  WS-BA3-TABLE. 


BAS-INDEX  is  the  index  associated  with  the  BAS-ENTRY  table.    WS-BAS  and 
WS-RANK  are  referenced  exactly  as  in  using  a  subscript. 

EXAMPLE: 

MOVE  WS-BAS  (BAS-INDEX)  TO  WS-DETAIL-BAS. 

To  initialize  an  index  to  a  value  and  decrement  or  increment,  the  index,  the 
SET  verb,  is  used. 

EXAMPLES: 

SET  BAS-INDEX  TO  1 . 
SET  BAS-INDEX  UP  BY  2. 
SET  BAS-INDEX  DOWN  BY  1 . 

Indexes  are  used  in  conditions  exactly  like  subscripts. 
EXAMPLE: 

IF  BAS-INDEX  GREATER  THAN  25 


05  WS-BAS-ENTRY 


10  WS-BAS 
10  WS-RANK 


OCCURS  30  TIMES 
INDEXED  BY  BAS-INDEX. 
PIC  S999V99. 
PIC  X(3). 
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The  linear  example  given  at  the  beginning  of  the  table  handling  section  would 
look  like  this,  using  indexing  instead  of  subscription,  assuming  that  INDEXED 
BY  NAME-INDEX  is  specified  after  the  OCCURS  clause. 

EXAMPLE: 

SET  NAME-INDEX  TO  1 . 
MOVE  'jD'  TO  WS-FLA6. 

A.  IF  IM01-NAME  EQUAL  TO  WS-NAME  (NAME-INDEX) 

MOVE  'T  TO  WS-FLA6 

GO  TO  B. 
SET  NAME-INDEX  UP  BY  1 . 
IF  NAME-INDEX  LESS  THAN  25 

60  TO  A. 

B.  ADD  1  TO  WS-CARD-COUNT. 

The  structured  example  would  look  like: 
MOVE  '0'  TO  WS-FLAG. 

PERFORM  01 0J&-NAME-COMPARE  THRU  j31  J30-NAME-EXIT 

VARYING  NAME-INDEX  FROM  1  BY  1 

UNTIL  NAME-INDEX  IS  GREATER  THAN  25 
OR  WS-FLAG  =  ' T . 
ADD  1  TO  WS-CARD-COUNT. 


01J3J5 -NAME -COMPARE. 

IF  IMiZ)l-NAME  EQUAL  TO  WS-NAME  (NAME-INDEX) 
MOVE  '1 •  TO  WS-FLAG. 
Pljap-NAME-EXIT.  EXIT. 

Indexing  is  usually  an  order  of  magnitude  more  efficient  than  subscripting 
when  steping  through  a  table  from  beginning  to  end.    When  using  an  index  in  a 
PERFORM  VARYING  statement,  all  of  the  SET  statements  are  done  automatically 
by  the  PERFORM. 

88  entries  cannot  be  used  in  or  under  an  OCCURS. 

Army  Standard:    (1)  Indexing  is  more  efficient  than  subscripting  and  is 

perf erred .  ' 

(2)  Checks  should  be  made  to  insure  that  indexes  and  subscripts 
do  not  exceed  the  range  of  the  OCCURS. 

(3)  Subscripting  or  indexing  must  be  limited  to  three  levels. 

(4)  Subscripting  or  indexing  beyond  one  level  should  be  avoided. 


ERIC 
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//  JOB  name 

This  is  the  first  card  of  each  job.    Name  must  be  from  1  to  7  characters, 
the  first  of  which  must  be  alphabetic,  the  last  of  which  may  be  characters 
or  numbers.    //  is  punched  in  columns  1  and  2. 

//  OPTION  option-1,  option-2,  option-3... 

This  may  appear  after  the  JOB  card  and  is  used  to  change  any  of  the  standard 
system  options.    It  is  not  required  if  the  options  which  are  standard  are 
the  options  desired. 

Options  include: 

LINK      which  specifies  that  the  job  is  to  be  written  on  disk  for  link 
edi  ti  ng . 

LIST      which  specifies  that  a  listing  of  a  compilation  is  to  be  written 
on  SYSLST. 

ERRS       specifies  that  a  listing  of  any  errors,  if  any,  are  to  be  listed 
on  SYSLST. 

DUMP       specifies  that  a  hexadecimal  dump  of  memory  is  to  be  made  if  the 

job  is  terminated  abnormally. 
LISTX     specifies  that  an  ALC  listing  of  generated  instructions  is  to  be 

written  on  SYSLST.  / 
SYM        specifies  that  a  table  of  data-names  are  to  be  listed  with  their  \ 

corresponding  system-assigned  names  with  locations. 
LOG        specifies  that  a  listing  of  all  job  control  is  to  be  written  on 

SYSLST. 

XREF       specifies  that  a  cross  reference  dictionary  of  data-names  be 
written  on  SYSLST. 

DECK       specifies  that  the  compiler  is  to  punch  an  object  deck  on  SYSPCH. 

The  standard  system  options  at  the  Institute  of  Administration  are  LIST,  ERRS, 
NOLINK,  NODUMP,  NOLISTX,  NOSYM,  NOLOG,  NOXREF,  NODECK.    Note  that  any  option 
may  be  negated  by  preceding  it  with  NO.    If  the  programmer  wanted  to  change 
one  of  the  above  options,  such  as  NOLINK  to  LINK,  he  would  punch  the  following 
card: 

//  OPTION  LINK 

If  he  wanted  to  change  2  items,  such  as  NOLINK  to  LINK  and  LIST  to  NOLIST, 
//  OPTION  LINK, NOLIST 

NOTE:    No  space  is  permitted  between  a  comma  and  the  next  option. 
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//  ASSGN  SYSnnn.X'cuu' 

The  assign  clause  is  used  to  assign  a  system  logical  number  to  a  specific 

hardward  device.  ^       ^  .    ^  ^u^„««i 

nnn  represents  a  3  digit  system  l^ogical  number;  cuu  represents  a  channel 
and  unit  number  to  which  a  device  is  connected. 

Devices  include: 

card  reader  X'jD0C' 

card  punch  X'JSjao' 

or  inter  X'PJOE' 

tape  drives  X'18|a'  X'lSV  X'182'  X'183'  X'184'  X'185' 

disk  drives  X'13?'  X'131'  X'132'  X'133'  X'134'  X'135'  X'l 

display  (video)  X'020'  Vm' 

console  typewriter  X'^IF' 

System  logical  numbers  on  our  system  are  available  from        thru  029. 
//  EXEC  pro gram -name 

This  statement  causes  a  program  on  core-image  library  to  be  read  into 
memory  and  executed.    If  no  name  is  specified,  the  program  compiled  will 
be  read  into  menory  and  executed. 

EXAMPLE: 

//  EXEC  LNKEDT  .  .    -  ,     ^  +u 

would  cause  the  link  editor  to  be  read  into  memory  and  link  edit  the 

program  just  compiled. 

//  EXEC  .         .  .  ^  A 

would  cause  the  program  just  link  edited  to  be  read  into  memory  and 

executed . 


/*  indicates  end-of-data.    It  would  appear  after  the  last  card  of  the  source 
program  to  be  compiled,  for  to  the  compiler  the  source  program  is  data.  It 
would  also  appear  after  any  data  which  may  have  been  included  for  use  by  an 
object  program. 


/& 


/&  indicates  end-of-job.  When  this  card  is  encountered,  the  job  is  termi- 
nated.   The  JOB  card  of  the  next  job  should  follow  a  /&  card. 
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EXAMPLE  of  a  job  to  be  compiled: 


//  JOB  SAMPLE 

//  ASSGN  SYSjSJD4,X'132' 

//  EXEC  FCOBOL 

IDENTIFICATION  DIVISION. 

PROGRAM-ID.  PEl. 

etc . 

rest  of  source  program 

/* 

NOTE:    The  full  (ANSI)  COBOL  compiler  requires  a  work  file  on  disk,  and 

expects  SYSW  to  be  assigned  to  a  disk.  Our  disk  file  used  for  this 
purpose  is  X'132',  and  thus  the  ASSGN  card  shown  above  is  required  to 
compile  ANSI  COBOL  programs. 


EXAMPLE  of  a  job  to  be  compiled  and  executed  with  data  included: 

//  JOB  EXAMPLE 

//  OPTION  LINK 

//  ASSGN  SYSW,X'132' 

//  EXEC  FCOBOL 

Source  deck 

/*  ' 

//  EXEC  LNKEDT 

//  ASSGN  SYS005,X'0j9C' 

//  ASSGN  SYS0ja6,X'ja0E' 

//  EXEC 

Card  data 

/* 

/& 

NOTE'    Note  that  SYS005  must  be  assigned  to  a  card  reader  in  the  COBOL  source 
program  since  JCL  has  specified  that  SYSi305  is  to  be  assigned  to  X'jSjDC, 
a  card  reader.    Likewise,  SYS006  must  be  assigned  to  a  printer  in  the 
COBOL  source  program. 


23, 
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OS  JOB  CONTROL  LANGUAGE  (JCL) 


There  are  three  kinds  "of  cards  normally  used  in  a  typical  OS  job  deck:  the 
JOB  card,  the  EXEC  card,  and  the  00  card.    They  will  each  be  described  to 
give  an  appreciation  of  the  relationship  to  a  COBOL  program. 

The  JOB  card  has  the  following  format: 

//jobname  JOB  ...  (other  parameters) 

This  IS  always  the  first  card  in  all  JCL  decks.    It  tells  the  operating 
system  that  a  job  is  beginning. 

The  EXEC  card  has  the  following  format  when  used  in  the  context  of  a  COBOL 
program  being  compiled,  link-edited,  and  executed: 

//  EXEC  COBUCLG,PARM.COB=(compiler  options), 

//  PARM.LKED=( linkage-editor  options), 

//  COND.LKED=(n.LT) ,COND.GO=(n,LT) 

The  three  cards  shown,  each  beginning  with  a  //,  are  treated  as  one  card 
because  the  second  and  third  cards  are  merely  continuations  of  the  first.  A 
continuation  is  indicated  by  the  card  being  continued  ending  with  a  comma  and 
the  next  card  beginning  with  a  //  followed  by  at  least  one  space  then  the 
continued  statement.    In  this  case,  the  EXEC  card  is  invoking  a  three  step 
procedure  (or  PROC}  that  compiles  a  COBOL  program,  link-edits  it,  then 
executes  that  program.    COBULCG  is  the  name  of  the  procedure.    The  first  step 
in  the  procedure  is  named  the  COB  step.    FARM. COB  refers  to  options  that 
affect  the  execution  of  this  step.    Some  of  the  commonly  used  options  are: 

QUOTE  indicates  that  a  double  quote  is  used  to  delineate  literals  instead  of 
APOST     the  apostophe  (or  single  quote)  or  vice  versa. 

SPACE  1 
SPACE  2 

SPACE  3  indicate  that  the  source  program  listing  is  to  be  single,  double,  or 
triple  spaced  respectively. 

XREF       indicates  that  a  cross  reference  is  to  be  generated  or  suppressed  of 
NOXREF    all  of  the  data-names  and  paragraph-names  after  the  source  program 
listing. 

PMAP       indicates  that  a  pseudo-assembler  listing  is  to  be  printed  or 
NOPMAP    suppressed  of  the  generated  code  in  the  PROCEDURE  DIVISION  after  the 
source  program  listing  and  xref  listing  (if  included  J. 

DMAP       indicates  that  a  map  of  the  DATA  DIVISION  is  to  be  printed  or 
NODMAP    suppressed  after  the  source  program  listing. 

If  only  one  of  the  options  is  chosen,  then  the  parentheses  are  not  needed. 
If  more  than  one  option  is  chosen,  the  parentheses  must  be  included  and  the 
options  must  be  separated  by  commas. 
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The  second  step  in  the  procedure  is  the  LKED  step.    This  is  the  step  that  link- 
edits  the  program.    During  this  step,  any  subroutines  that  are  used  by  the 
COBOL  program  are  joined  to  it  and  a  lot  of  busy  work  is  done.    There  are  two 
commonly  used  options  in  the  linkage-editor. 

MAP        indicates  that  a  map  of  the  linked  program  is  to  be  printed.    This  is 
useful  in  debugging  the  program  using  a  core  dump. 

XREF  indicates  that  a  cross  reference  of  the  communication  between  the 
programs  and  subroutines  is  to  be  printed  along  with  a  map  of  the 
module. 

The  COND.LKED  parameter  is  used  to  force  execution  of  the  LKED  step  even 
though  diagnositcs  (errors)  above  the  level  of  W  have  been  generated  during 
the  compilation  of  the  COBOL  program.    Normally  a  program  will  execute  with 
C  level  errors  but  not  E  level  or  higher.    To  allow  the  program  to  link  and 
execute  with  a  C  level  error,  substitute  an  8  for  the  n  in  this  parameter  and 
in  the  C0ND.60  parameter.    If  linking  and  k  execution  is  desired  only  with  W 
level  errors,  then  omit  both  COND  parameters  and  the  comma  after  the  parentheses 
on  the  last  PARM  parameter. 

After  the  EXEC  card  is  the  SYSIN  card  for  the  COBOL  program.    Its  format  is: 
//COB.SYSIN  DD  * 

COB  indicates  that  it  is  to  be  used  in  the  COB  step;  SYSIN  is  the  name  of  the 
DD  card;  DD  indicates  that  it  is  indeed  a  DD  card  (data  description);  and  * 
indicates  that  this  is  a  card  file  with  the  cards  immediately  following  the 
DD  card.    The  COBOL  program  is  placed  immediately  behind  this  card. 

After  the  last  card  in  the  COBOL  program,  the  DD  cards  that  describe  the 
files  used  in  the  COBOL  program.    Their  format  is: 

//GO.ddname  DD  ...  (additional  parameters) 

The  GO  indicates  that  it  is  used  dur    g  the  GO  step  (execution);  the  ddname 
is  identical  to  the  external  name  useu  in  the  system  name  after  the  ASSIGN 
in  the  FILE-CONTROL  paragraph  in  the  COBOL  program;  the  DD  indicates  that 
this  is  a  DD  card;  and  the  additional  parameters  can  be  many  things.    If  this 
was  to  be  a  card  file,  then  an  asterisk  (*)  is  all  that  is  necessary  after 
the  DD.    If  this  was  a  card  punch  file  then  SYSOUT=B  is  needed  after  the  DD. 
If  this  was  a  printer  file,  then  SYSOUT=A  is  needed  after  the  DD.    If  the 
only  entry  after  the  DD  is  the  word  DUMMY  and  the  file  is  used  for  sequential 
output  (e.g.,  as  a  printer),  everything  written  in  that  file  is  ignored  by  the 
system.    If  the  DUMMY  file  is  used  as  sequential  input  (e.g.,  as  a  card  reader), 
the  first  read  that  is  executed  generates  an  end  of  file  condition  on  that 
file.    Random  reads  or  writes  are  not  allowed  to  DUMMY  files. 

If  DISPLAY,  EXHIBIT,  or  TRACE  is  used  in  the  program,  then  the  following  card 
is  needed. 
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//QIQ.SYSWl  OD  SYSOUT=A 
EXAMPLE: 

//EXAMINt  JOB  ...  (other  JOB  card  parameters) 
//  EXEC  C0BUCL6. 

//  PARM.C0B=(XREF,PMAP,DMAP,SPACE2) , 

//  PARM.LKED=XREF. 
//  C0ND.LKED=(8,LT), 
//  C0ND.G0={8,LT) 

//COB. SYS IN  DU  * 

IDENTIFICATION  DIVISION. 


FILE-CONTROL. 

SELECT  DlbK-FILE 

ASSIGN  TO  UT-S-DISK. 
SELECT  Pt  INTER 

ASSIGN  TO  UT-S-PRINTER. 
SELECT  CARD-READER 

ASSIGN  TO  UT-S-READER. 
SELECT  CARD-PUNCH 

ASSIGN  TO  UT-S-PUNCH. 

!      (rest  of  COBOL  program) 

//GO. DISK       DD  ...  (other  DD  card  parameters) 
//GO. PRINTER  DD  SYSOUT=A 
//GO. READER  DD  * 

(data  cards) 

//GO. PUNCH  DD  SYSOUT=B 
// 

In  this  example,  the  JOB  name  is  EXAMPLE.    The  C0BUCL6  procedure  is  invoked. 
Parameters  for  the  COB  (COBOL  compile)  step  are  XREF,  PMAP,  DMAP,  AND  SPACE2. 
This  will  print  a  cross  reference  of  all  the  data-names  and  paragraph  names 
in  the  program,  list  all  of  the  pseudo  assembler  generated  codes  in  the 
nrocedure  division,  map  the  dat=  division  variables,  and  double  soace  the 
COBOL  source  program  listing.    Parameters  for  the  LKED  (link-edit)  step  are 
XREF     This  will  map  the  linked  module  and  cross  reference  the  communication 
between  the  routines.    The  COND  parameters  indicate  that  linking  and  execution 
is  desired  with  C  level  errors  in  compilation.    The  COB.SYSIN  card  indicates 
that  the  program  immediately  follows  on  cards. 

The  four  files  that  the  program  uses  are  defined  to  have  external  names  of 
DISK,  PRINTER,  READER,  and  PUNCH.    These  same  names  are  all  defined  as  DD 
names  beneath  the  COBOL  program.    The  GO. DISK  DD  card  describes  the  disk  file. 
The  GO.PRlNThR  DD  card  indicates  thut  this  is  a  printer  file  by  having  SYSOUT=A 
after  the  Du.    The  60. READER  DD  card  indicates  that  this  is  a  card  file  by  the 
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asterisk  (*)  after  the  DD.    The  GO. PUNCH  DD  card  indicates  that  this  is  a  card 
punch  file  by  the  SYSOUT=B  after  the  DD.    Finally  the  last  card  in  the  deck 
is  a  //  with  nothing  else  on  the  card.    This  indicates  the  end  of  the  job. 
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COBOL  SOURCE  DESIGN  LANGUAGE  (SDL) 

1.  ADD:    Adds  the  contents  of  one  data  name  to  another  data  name  or  a 
numeric  integer  value  to  a  data  name. 

2.  AT  END:    Used  only  in  conjunction  with  the  READ. 

3.  CLOSE:  Makes  a  file  nonaccessible,  the  file  can  no  longer  be  read  from 
or  written  to. 

4.  EXIT:    Used  to  identify  the  ending  point  of  a  routine. 

5.  IF-THEN-ELSE:    The  IF  portion  states  a  condition,  the  THEN  portion  is 
done  when  condition  is  true,  the  ELSE  portion  is  done  when  the  condition 
1s  not  true. 

6.  MOVE:    Moves  the  contents  of  one  data  name  to  another  data  name. 

7.  OPEN:    Makes  a  file  accessible  so  that  it  can  be  read  from  or  written 
to. 

8.  PERFORM:    Does  a  routine  from  its  beginning  point  through  its  ending 
point,  one  time. 

9.  PERFORM-UNTIL:    Does  a  routine  from  its  beginning  point  through  its 
ending  point,  some  number  of  times  until  a  stated  condition  is  true. 

10.    READ:    Accesses  a  file  and  makes  one  record  available  for  processing. 

n.    STOP  RUN:    Used  to  show  the  end  of  all  processing.    The  STOP  RUN  will 
be  used  at  the  end  of  the  main  controlling  routine. 

12.  WRITE:    Puts  the  contents  of  a  record  name  out  to  a  physical  device. 

13.  NEXT  SENTENCE:    Used  in  conjunction  with  the  IF-THEN-ELSE  to  show  a 
null  THEN  or  ELSE  portion  of  the  statement. 
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Prograinming  Standards  established  here  are  not  intended  to  be 
-inclusive  for  ANS-OOBOL  program  development.    Rather f  they  are  presented 
in  order  to  eliminate  ambiguity  in  the  oonnpletion  of  ODBOL  practical  exercises 
and  tests  by  students  of  C3oniputer  Science  Department.    Standards  already 
established  by  US  Army  Gcnpiter  Systems  Gonmand  are  included  in  this 
memorandum.    It  should  be  noted  that  the  standards  specified  are  mandatory  for 
graded  practical  exercises  and  tests  administered  by  the  Software  Division, 
specifications  are  grouped  by  COBOL  Division,  i.e..  Section  I  deals  with 
requirements  in  the  Identification  Division,  Section  II  with  Elivironment 
Division,  Section  III  with  Data  Division  and  Section  IV  with  Procedure 
Division.    Where  these  standards  OOTiflict  with  ST  18-150,  these  standards  have 
precedence. 

Section  I.     IDENTIFICATION  DIVISION 

Though  the  only  entry  required  by  the  COBOL  compiler  is  that  of  a  Program- ID, 
all  paragrajAis  must  be  included  in  every  program. 

Requi  rements : 


a.    Program-ID.    A  meaningful  name  must  be  provided  for  this  entry. 
^    b.    Author.    Tte  student  will  enter  his  Rank,  Name  and  Class  Number. 

c .  Installation :  Enter 

CSD,  USAIA,  Ft  Harrison,  IN  46216 

d.  Date--Written:  Itie  date  the  student  started  coding  the  program  will  be 
entered  here. 

e.  Date-Compiled.    Eiiter  TODAZ. 

f.  Security.    Enter  UNCIASSIFIBD. 
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g.    Remarks.    This  paragraph  will  be  used  to  provide  a  descripticn  of  the 
funstictts  the  program  performs.    It  wiU  also  include  an  e:?>lanation  of  the  use 
of  all  level  77  and  all  level  01  entries  in  working-storage.    An  asterisk  (*) 
will  be  placed  in  ooluim  7  of  each  line  (card)  of  this  paragraph,  including  . 
the  paragraph  ft-eader  line. 


Exaiiple  of  Identification  Division  entries: 
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Section  II.    ENVIPC»5ME«T  DIVISION 

Since  student  EE's  are  run  cn  the  IBM  360-40  under  QS-METf  the  requirenents 
for  this  section  are  oriented  to  that  system. 


a*    In  the  Configuration  Section  both  the  Source-Coraputer  and  Object- 
Oon^Juter  paragraphs  will  contain  the  aitry:    IBM-360'H40.    Hie  Special-Names 
paragraph  will  be  used  to  equate  the  name  "TOP-OP-PASE"  to  the  printer  carriage 
control  tape  diannel  1.    Example  of  Configuration  Section  entries: 
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b.    Input-Output  Section.    The  particular  requirements  for  this  section 
cire  contained  in  each  practical  exercise  (PE) ,  except  for  the  formation  of 
the  individual  file-name.    The  following  standards  will  be  used  in  forming 
file-names. 


(1)  The  first  character  of  the  name  must  be  I,  indicating  that  the 
file  is  an  input  file  in  this  program,  or  O,  indicating  that  the  file  is  an 
output  file,  or       indicating  that  the  file  is  used  for  both  input  and  output. 
For  sort  files  /  the  first  character  will  be  S. 

(2)  The  second  character  will  be  selected  from  the  following: 

M  -  used  as  Master  Files 

T  -  used  as  Transaction  Files 

R  -  used  as  Report  Files  written  to  the  printer 

C  -  used  for  Card  Files  which  contain  miscellaneous  data, 
e.g.,  data  to  build  a  table,  control  data  to  extract 
data  from  other  files 

W  -  Work  (intermediate)  Files 

(3)  The  third  character  will  always  be  a  hyphoi  (-) . 

(4)  The  rest  of  the  file-name  must  be  descriptive  of  what  the  file 

contains. 
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(5)  Exanples: 

(a)  A  personnel  master  file  is  used  as  input  to  a  program 

(b)  A  printed  listing  of  personnel  data  is  produced  by  a" 
program.    It  is  an  output  file. 

(c)  A  sv^Jply  parts  master  file,  organized  as  an  indexed 
sequential  file,  is  read  from  the  written  to: 


(6)    "Hie  ASSIGN  Clause  of  the  SELEJCT  statemoit  will  be  indented  four 
(4)  oolumns  and  punched  cn  a  separate  card. 
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Section  ill.    DATA  DIVISION 


(a)    Pile  Sectioi. 

(1)      Though  the  only  clause  required  by  the  corrpiler  in  a  Pile 
Description  (FD)  is  the  LABEL  RBOOFD  clause,  all  optional  entries  will  be 
included  for  all  files.    Each  clause  will  be  punched  on  a  separate  card 
and  will  begin  in  column  12,    Escanple  of  an  FD: 
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The  blocking  factor  and  record  size  are  specified  on  the  record  layouts  for 
each  PE.    The  data  record  name  is  a  programmer-defined  name  and  will  be 
formed  according  to  these  standards: 

(a)  The  first  two  characters  will  be  identical  to  the  first 
two  characters  of  the  file-name. 

(b)  The  next  two  characters  will  oonsist  of  a  sequence  number 
with  01.    If  there  is  only  or^  record  format  associated  with  a  file, 

.  record  name  will  have  01  as  the  third  and  fourth  characters*  If 
more  than  one  record  formatf  the  first  one  described  will  have  a 
number  oi:  01,  the  second  one  02,  and  so  on* 

(c)  The  fifth  character  will  always  be  a  hyphei  (-) . 

(d)  The  rest  of  the  data  record  name  will  be  descriptive  of 
the  record  itself. 

(e)  If  a  record  is  defined  as  an  elementary  item,  the  picture 
clause  will  begin  in  oolurm  48  (or  as  specified  in  para  b(4))  and  the  word 
PICTURE  will  be  abbvreviated  to  PIC. 
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(2)    Standards  for  defining  data  items  within  records  are:  ( 

(a)  Level  numbers  will  begin  at  05,  and  each  subordinate  level 
will  be  incremented  by  5.    Subordinate  elements  will  be  indented  four  (4) 
oolurons. 

(b)  Hie  first  five  characters  of  all  data  item  names  will  be 
identical  to  the  first  five  characters  of  the  record  name.  Allow  two  blank 
columns  between  level  nuirtDers  and  the  data  names. 

(c)  The  rest  of  the  data  item  name  will  be  descriptive  of  the 

data  item. 
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T  Uie  following  is  an  example  of  the  description  of  the  record  associated  with 

S  IM-PERS-MSTR,  the  file  defined  in  paragraph  a(l)  of  this  section 
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(d)  The  PICTURE  clause  for  elementary  items  will  begin  in 
column  48  (or  as  specified  in  para  b(4)).    The  word  PICTURE  will  be  abbrevi- 
ated to  PIC, 

(e)  Each  additional  clause  will  be  punched  on  a  separate  cardr 
and  will  begin  in  column  28, 

b.    Working-Storage  Section. 

(1)  The  first  entry  in  Working-Storage  will  be  a  level  77  iten 
indicating  the  beginning  of  the  section/  and  the  last  entry  will  be  an  01  item 
indicating  the  end  of  the  section.    Insertion  of  these  two  items  aids  in  de- 
bugging with  a  core  dunp.    (See  exanple  on  page  10.) 

(2)  All  data  elements  defined  in  WORKING-STORflGE  will  be 
preceded  by  characters  (W&-)  as  the  first  three  characters  of  the  name. 

(3)  Hie  rest  of  the  name  will  be  formed  as  follows: 

(a)    For  level  77  and  01  items,  it  is  sufficient  to  provide 
a  descriptive  name*  Examples: 


To  name  a  page  counter  using  a  level  77: 
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Tb  name  an  independent  record  for  a  printed  detail  line  using  a  level  01: 


z 
o 
u 
7 

A 
s 

B 

12  l» 

20                      24                      2S                      32                      ^«                     *0  ^ 

44 

4* 

.I 

w 

r 

r 

L 

L 

X 

(b)  All  data  elements  subordinate  to  a  level  01  item  will 
cx>ntain  in  positions  4  and  5  (and  ocxasionally  6)  of  the  name,  an  identifier 
which  links  them  to  the  level  01  item:    Exanples:    A  field  to  be  printed  as 
part  of  a  detail  line  and  which  contains  a  person's  social  security  number 
could  be  named  as:  WS-HLl-SSN 

A  field  to  otxitain  a  date  and  be  printed  as  part  of  Heading  Line  One  could 
be  named  as:  WS-HLl-DAOE 

(c)  Rules  for  level  numbers  and  indentation  are  the  same 
as  outlined  for  items  in  the  file  section.    See  para  a  (2)  (a)  of  this  section. 
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(4)  Any  clauses  included  with  a  date  item  description  will  be 
in  the  following  order: 

REDEFINES 

OCCURS 

PIC 

USAGE 

VMjUE 

JUSTIFIED 

SYNC 

(5)  The  first  clause  will  be  punched  in  column  48,  and  each 
ad3itional  clause  will  be  punched  on  a  separate  card  beginning  m  column  28. 

(6)  All  numeric  level  77  items  will  be  assigned  an  initial 

value. 

(7)  The  following  example  of  a  WCfRKING-STORAGE  SECTION  is 
provided  to  clarify  the  standards  outlined  above. 
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Section  IV.    PROCEDURE  DIVISION 


a.    PARAGRAPH  Names: 

(1)  All  paragraE*i  names  will  cxxitain  in  the  first  four  positicns  a 
sequence  nunber,  beginning  with  0010.    The  nuntoer  assigned  to  each  paragraph 
will  be  in  ascending  order  and  each  will  be  incremented  ty  10  to  allow 
insertion  of  additonal  paragraphs  as  the  need  arises.    An  exception  will  be 
numbers  assigned  to  EXIT  paragrafiis.    Hiese  will  contain  the  same  number  as 
the  preceding  paragraph.   All  paragrajAis  will  have  an  associated  exit 
paragraph,  except,  of  oourse,  exit  paragraphs  themselves. 

(2)  The  fifth  position  of  the  name  will  be  a  hyphai  (-) ,  and  the 
remainder  of  the  name  will  be  descriptive  of  the  functions (s)  performed. 


(3)  Example: 
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b.    Verbs:    Any  reference  to  indentation  implies  four  (4)  columns. 
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(1)    EERBXJFM.    Ihe  "Thru"  option  will  always  be  used  with  a  PERFORM 
verb.    Procedure  -  name  -  2,  which  follows  the  word  THRU,  must  be  an  exit 
paragraj^.  Example: 
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(a)    When  the  "UNTIL"  option  is  used  with  a  PERFORM,  the  UNTIL 
clause  will  be  indented  and  appear  on  a  separate  line.  Example: 
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(b)    When  using  the  "VARYING"  and  "UNTIL"  options  together,  each 
clause  will  be  indented  and  appear  on  a  separate  line  from  the  PERPCfRM. 
Exanple: 
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(2)  IF. 


(a)  All  IF  statements  will  include  the  opticnal  word  THEN 
foUcw^vg  the  condition.    The  word  IHEN  will  be  indented  and  appear  on  the 
next  line.    If  the  statement  following  the  THEN  is  another  IP  (i.e.,  a  nested 
-IF) ,  it  will  also  be  indented  and  appear  on  a  separate  line.    The  same  rules 
^ly  to  the  use  of  the  t^-^R  option. 

(b)  Examples:     See  Page  14. 

(3)    Go  To.    A  GO  TO  statement  may  only  be  used  to  transfer  control 
to  a  section  exit  or  a  paragrapii  exit. 

.  (4)    SORT.    All  clauses  specified  with  the  SORT  verb  will  be  indented 
and  each  clause  will  appear  an  a  separate  line.    Vlhen  either  or  both  of  the 
"INPUT  PROCECURE  IS"  and  "OUTPUT  PROCEDURE  IS"  options  are  used,  each  of  the 
sections  referred  to  must  be  clearly  identifiable  as  a  separate  section.  A 
work  section  will  be  used  as  the  last  section  of  the  program,  and  it  will 
contain  individual  routines  (with  appropriate  exists)  vrfiich  are  referenced 
thru  the  use  of  PEKEXMl  statemaits  in  the  INPUT  PRDCIEURE  section  or  OUTPUT 
PROCEDURE  section.    Exanple:    See  Page  15. 

(5)    READ.    AT  . END  and  INVALID  KEY  coiditicns  associated  with  READ 
statements  will  be  indented  and  appear  on  a  separate  line.    Only  one  READ 
statemoit  will  be  used  for  each  input  file. 
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SORT  Procedure  E3MMPIES 
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(6)    WRITE.    Only  one  WRITE  statement  per  record  type  is  permitted. 


When  writing  to  the  printer,  both  the  FROM  and  AFTER  ADVANCING  options  may  be 
used.    The  AFTER  ADVANCING  clause  will  be  indented  and  appear  en  a  separate 
line. 


(7)    The  following  verbs  will  not  be  used: 

MDVE  Corresponding 
ALTER 

GO  TO  DEPENDESfG  ON 
ENTER 


(8)    Miscellaneous.    All  switches  will  be  set       as  three  ciiaracters 
alphanumeric  fields.    The  words  "OFF"  and  "CN«  will  be  used  to  change  the 
status  of  a  switcii,  or  as  a  literal  to  check  for  a  specific  value  in  a  switch. 


2  GO 
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COBOL  SORT 


1.  INTRODUCTION. 

a.    ANSI  COBOL,  with  its  IBM  extensions,  has  many  advanced  processing 
capabilities;  that  is.  it  has  features  that  are  not  really  needed  to  write 
most  programs  but  can  make  it  easier  to  write  the  programs,  or  make  the  pro- 
grams themselves  more  flexible.    Among  those  items  which  might  be  considered 
advanced  processing  are  the  following: 

(1)  The  segnentation  feature,  which  allows  programs  to  be  divided 
into  segnents. 

(2)  The  source  program  library,  which  allows  parts  of  programs  to 
be  saved  in  a  library  for  later  use. 

(3}    The  debugging  feature,  which  allows  for  a  diagnostic  printout 
while  th?  program  is  executing. 

(4)  The  report  writer  feature,  which  provides  an  alternate  method 
of  describing  printed  output  files. 

(5)  The  sort  feature,  which  permits  rearranging  records  of  a  file 
into  any  order. 

(6)  Index-sequential  file  handling,  which  allows  processing  of  an 
indexed-sequential  direct-access  file. 

b.    We  do  not  have  the  time  nor  space  to  discuss  all  these  features, 
nor  do  all  of  them  merit  discussion.    We  will  cover  the  two  that  seem  tt)  be 
used  most  often:    the  sort  feature  and  index-sequential  file  handling.  The 
others  we  will  leeve  for  you  to  explore  on  your  own. 

2.  OBJECTIVE.    You  will  learn  the  COBOL  statements  necessary  to  create, 
read  sequentially,  and  update  randomly  an  index-sequential  file.    You  will 
also  learn  the  statements  and  methods  needed  to  use  the  sort  feature.  (You 
should  note  that  index-sequential  files  are  an  IBM  addition  to  the  standard 
COBOL  language.    Although  many  other  manufacturers  also  have  adopted  index- 
sequential  files,  the  system  with  which  you  are  working  may  not  have  this 
feature.)    The  two  IBM  operating  systems  in  general  used  by  the  Army  are  DOS 
(Disk  Operating  System)  and  OS  (Operating  System).    Where  one  or  the  other 
operating  system  has  unique  requirements,  they  are  identified. 

3.  THE  COBOL  SORT  FEATURE.  The  COBOL  sort  feature  enables  you  to  rearrange 
a  file  used  by  your  program  into  any  order  you  want.  You  can  do  the  sorting 
as  part  of  your  program,  instead  of  having  to  use  a  separate  utility.  If 
you  have  a  file  in  social  security  number  order,  for  example,  you  can  resort 
it  into  alphabetical  order  by  name,  or  by  address  or  into  whatever  order  you 
would  like.    To  use  the  5«rt,  we  must  set  up  a  sort-file  in  our  program. 

The  purpose  of  a  sort-file  is  to  gather  up  all^t he, records  to  be  sorted,  to 
hold  them  while  the  sort  takes  place,  and  to  parcel  Lfre~-records  put  once 
they  have  been  rearranged.    The  sort-file  is  essentially  a  work  area  into 
which  the  records  to  be  sorted  are  placed.    One  method  of  sorting  consists 
of  three  separate  phases;  each  is  described  below. 


261 


U-Ol-Ol-Ol 


a.  Phase  1  -  Input.    The  records  to  be  sorted  are  read  into  the  com- 
futer's  memory,  and  "strings"  of  records  are  built  and  written  to  the 
ort-file.    A  "string"  consists  of  a  series  of  records  in  the  desired 
equence.    As  soon  as  the  sequence  is  broken,  a  "string"  is  complete,  and  a 
lew  one  is  started.    For  example,  let  us  say  that  records  4,  7,  8,  10,  and 
3  have  been  read  and  are  put  into  a  "string".    The  next  record  read  is  9. 
he  sequence  has  been  broken, 

md  a  completed  "string"  of  records  4,  7,  8,  10,  13  is  now  on  the  sort-file. 
I  new  "string'  with  record  9  as  the  first  record  is  now  started. 

b.  Phase  2  -  Sort/Merge.    After  all  records  have  been  read  and  placed 
n  "strings",  two  "strings"  are  brought  back  into  memory  at  a  time,  and 
lerged  into  one  longer  "string".    This  continues  until  only  two  "strings" 
ire  left. 

c.  Phase  3  -  Output.    The  last  two  "strings"  are  merged  when  the 
ecords  are  passed  back  to  memory  or  to  an  output  device  -  whichever  the 
irogram  calls  for. 

lote:    The  number  of  "strings"  which  are  merged  at  one  time  depends  on  what 
s  known  as  the  "merge  order".    The  "merge  order"  is  a  function  of  the 
imount  of  memory  available,  number  and  type  of  input/output  devices  and 
fumber  of  work  files  to  be  used. 

.    When  using  the  COBOL  SORT  feature,  input  to  and  output  from  the  SORT 
:an  be  handled  in  one  of  several  ways.    First,  let  us  look  at  what  a  pro- 
iramer  can  do  in  the  input  phase.    Basically,  he  has  two  options.    They  are: 

a.  Copy  every  field  of  every  record  in  the  input  file  to  the  sort-file. 

b.  Copy  only  selected  fields  and/or  records  in  the  input  file  to  the 
ort-file. 

If  option  "a"  is  selected,  the  input  file  is  copied  in  its  entirety, 
his  method  of  input  is  useful  when  a  file  is  simply  to  be  rearranged,  and 
til  records  are  required  for  output.    If  option  "b"  is  selected,  only  those 
ecords  which  need  to  be  sorted  are  passed  to  the  sort  file.    Also,  indi- 
vidual fields  which  are  not  needed  on  output  can  be  dropped,  thereby  making 
he  sort  record  smaller.    Removal  of  unnecessary  records  and  field,^  reduces 
he  amount  of  data  to  be  sorted,  and  allows  for  better  use  of  available 
emory.    The  time  required  for  the  sort  itself  will  decrease.    This  option 
s  normally  used  when  printing  a  report  from  a  file  and 

a.  the  report  must  be  in  a  different  order  than  the  file, 

b.  only  certain  records  are  to  be  included  and 

c.  not  all  fields  on  the  original  record  are  needed  on  the  report. 
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6.  Output  may  be  one  of  two  options: 

a.  Copy  the  sorted  file  to  a  permanent  file; 

b.  Read  the  sorted  file  as  input  and  process  it,  one  record  at  a  time, 
like  any  other  sequential  input  file. 

Note:    Option  "a"  is  used  when  a  permanent  copy  of  the  sorted  file  is  de- 
sired and  no  reports  or  special  processing  are  required.    Option  "b"  is  used 
when  reports  and/or  special  processing  are  required. 

7.  DESCRIBING  THE  SORT-FILE  (Sort  Work  Area).    Like  any  other  file,  we  must 
have  a  SELECT  statement  for  the  sort-file.    However,  instead  of  having  a 
corresponding  FD  in  the  Data  Division,  we  must  use  a  Sort  Description  (SO). 
Let  us  look  at  the  SELECT  first. 

a.  SELECT  for  a  sort-file  under  IBM  Disk  Operating  System  (DOS)  COBOL. 
The  file  must  be  either  a  tape  or  a  disk  file.    It  is  divided  into  sections, 
each  section  on  a  different  tape  or  disk  area.    The  more  sections  into  which 
the  file  is  broken,  the  faster  the  sort  will  execute.    If  you  are  using  disk 
as  your  work  unit,  you  may  have  from  one  to  eight  sections.    If  you  are 
using  tape,  -ou  may  have  from  three  to  nine.    Yoii  may  not  mix  disk  with 
tapes.    The  choice  of  how  many  work  units  to  use  will  depend  mostly  on  how 
many  tapes  or  disk  areas  are  available.    The  format  of  the  SELECT  clause  may 
be  found  in  the  IBM  ANS  COBOL  Language  Reference  Manual.    An  example  of  a 
SELECT  for  a  sort-file  that  will  use  four  work  units  on  disk  is  SELECT 
SORTING,  ASSIGN  TO  4  SYSOOl-UT-2314-S-SORTVIKl .    Note  that  the  ASSIGN  clause 
for  the  sort-file  must  specify  SYSOOl .    The  unit  may  be  either  2400  (tape)  or 
2314  or  2311  (diskTi — The  -SORTVfKl  parameter  must  be  included  when  you  are 
using  standard  labels.    An  example  of  a  SELECT  statement  for  a  sort-file  under 
OS  is: 

SELECT  SORT-WORK-FILE    ASSIGN  TO  4  UT-S-SORTWKl 

b.  The  sort  description.    In  a  program  that  uses  a  sort,  each  ordinary 
file  must  have  an  FD  and  the  sort-file  must  have  an  SD.    The  format  for  the 
SD  can  be  found  in  the  IBM  ANS  COBOL  Language  Reference  Manual  under  Sort 
File  Description  Entry. 

Note:    The  sort-file-name  must  match  ,the  one  given  in  the  SELECT  for  the 
sort  file,  and  the  BLOCK  CONTAINS  clause  may  NOT  be  coded  or  used  with  an  SD. 

8.  SORTING  THE  FILE.    The  file  is  sorted  by  executing  a  SORT  statement  in  the 
PROCEDURE  DIVISION.    Each  time  the  SORT  is  executed,  the  entire  file  is  sorted. 
Usually,  the  SORT  will  be  executed  once.    The  SORT  statement  provides  informa- 
tion about  all  phases  of  the  sorting  operation.    The  format  of  the  SORT  state- 
ment is  shown  below.    The  sort-file  itself  is  never  opened  or  closed  by  the 
programer.    Opening  and  closing  of  the  sort-fi le  is  done  automatically  by  the 
SORT  verb.    For  the  format  of  the  SORT  statement,  refer  to  the  IBM  ANS  COBOL 
Language  Reference  Manual.    Let  us  see  how  each  part  of  the  SORT  statement 
applies  to  a  particular  phase  of  the  SORT  operation. 
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a.    Phase  1  — Input.    The  INPUT  PROCEDURE  or  USING  clause  (not  both) 
determines  how  the  sort-file  will  get  the  records  that  it  is  to  sort. 

(1)  If  the  entire  input  file  is  to  be  sorted,  you  can  use  the  USING 
file-name-2  option.    This  will  cause  the  .file-name-2  file  to  be  copied  onto 
the  sort-file.    You  must  not  open,  close,  or  read  the  file-name-2  file;  copying 
is  done  automatically.    (NOTE:    file-name-2  cannot  be  open  while  the  sort  is 
executing.)    When  you  code  the  USING,  you  do  not  have  access  to  the  records  as 
they  are  being  copied  onto  the  sort-file.    The  record  description  under  the  SO 
must  be  identical  in  form  to  the  record  description  under  file-name-2. 

(2)  If  you  wish  to  manipulate  the  records  from  the  input  file  before 
they  are  placed  on  the  sort-file,  you  must  use  the  INPUT  PROCEDURE  clause.  By 
coding  the  INPUT  PROCEDURE  clause,  you  will  cause  the  input  phase  to  perform 
the  section-name  you  give  in  the  INPUT  PROCEDURE  clause. 

(3)  A  section  is  made  up  of  one  or  more  paragraphs  that  are  logically 
related.    Every  section  is  begun  with  a  section  name  (a  paragraph  name  followed 
by  a  spac3  and  the  word  SECTION).    A  section  ends  on  the  statement  before  the 
next  section  name  or  with  the  last  card  in  the  program,  whichever  occurs  first. 
It  is  a  good  idea  to  have  an  exit  paragraph  (called  section-exit  in  this  text) 
at  the  end  of  each  section.    This  allows  the  structured  construction  of  the 
procedure  division  to  be  maintained. 

(4)  When  the  sort  begins  execution,  the  input  procedure  section  is 
executed.    The  input  procedure  section  is  actually  a  self-contained  program 
that: 

(a)  opens  the  file  that  has  the  records  to  be  sorted; 

(b)  reads  those  records; 

(c)  processes  them  in  whatever  way  is  needed; 

(d)  passes  the  records  to  the  sort  file  by  using  a  RELEASE 
statement  (explained  later); 

(e)  closes  the  input  file; 

(f)  and  branches  to  the  section  exit. 

Note:    The  input  procedure  section  has  its  own  driver  paragraph  (ending  with  a 
60  TO  to  the  section-exit),  any  routines  needed  for  processing  the  input 
records,  and  a  section  exit  at  the  end  of  all  the  routines. 

b.    Phase  2--Sort/Merge.    The  SORT. . .ON. . .KEY  portion  of  the  sort  statement 
controls  the  action  of  this  phase.    Once  Phase  1  is  finished,  all  the  records 
that  are  to  be  sorted  will  be  arranged  in  strings  in  the  sort-work  area.  The 
SORT... ON... KEY  will  determine  how  the  strings  are  to  be  merged.    Rules  on 
sort  keys  are  listed  below.    If  the  file  was  in  SSN  order  and  we  wish  to  sort 
it  alphabetically  by  name,  then  NAME  is  the  key  on  which  we  will  be  sorting. 
There  can  be  more  than  one  sort  key;  for  example,  we  might  want  to  sort  the 
records  by  STATE  and  then  by  CITY  within  each  STATE.    In  this  case  the  STATE 
field  would  be  the  major  sort  key,  and  the  CITY  field  would  be  the  minor  sort 
key.    When  you  code  the  ON... KEY  clauses,  you  must  code  the  major  key  first, 
followed  by  the  minor  keys.    For  each  key,  you  have  the  choice  of  sorting  it 
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in  ASCENDING  (lowest  first,  highest  last)  sequence  or  DESCENDING  (highest 
first,  lowest  last)  sequence.    (An  alphabetical  sort  would  be  ASCENDING  -  A 
is  first,  Z  is  last).    Rules  on  keys  on  DOS  and  OS: 

(1)  The  sort  keys  that  you  are  sorting  on  must  be  subdivisions  of 
the  record  of  the  sort-file;  i.e.,  they  must  come  un^the  01  which  belongs 
to  the  SD. 

(2)  The  maximum  number  of  keys  is  12. 

(3)  The  total  length  of  the  keys  must  not  exceed  256  bytes. 

(4)  Keys  cannot  contain  or  be  subordinate  to  an  OCCURS  clause. 

(5)  Keys  cannot  be  located  after  an  OCCURS  clause. 

(6)  All  keys  must  be  defined  in  the  first  4092  bytes  of  the  sort 

record. 

c  Phase  3-Output.  Once  Phase  2  is  finished,  the  records  are  in  a 
sor>  work  area  and  can  be  retrieved  in  the  order  in  which  you  want  them. 
The  means  of  retrieving  them  is  specified  by  the  GIVING  or  OUTPUT  PROCEDURE 

clauses. 

(1)  The  GIVING  file-name-3  operates  in  a  simi lar  manner  to  the 
USING-  i.e.,  the  sort-file  is  copied  to  an  output  file.    The  file  that 
receives  the  sorted  records  must  not  be  opened  by  the  programer  when  the 
sort  is  executed.    File-name-3  will  be  opened  and  closed  automatically.  As 
wUh  the  USING,  you  do  not  have  access  to  the  records  as  they  are  copied  from 
the  sortfile  to  file-.name-3.    The  record  description  of  f  le-name-3  must  be 
identical  in  form  to  the  record  description  m  the  sort-file. 

(2)  By  using  the  OUTPUT  PROCEDURE  clause,  you  may  retrieve  the 
sorted  records  one  at  a  time  and  process  them.    Like  the  input  procedure,  the 
sSion-n^e  vou  give  will  be  performed.    Within  the  section  you  can  retrieve 
lllVrTs  Tom  fhe  fo?tfile  by  Ssing  a  RETURN  f^^ement  (discussed    ater  in  is 
text).    The  sort  file  must  not  be  opened  or  closed     As  in  the  input  Pl^ocedure 
sla  on,  the  output  procedure  section  is  responsible  for  ^pening  and  closing 
the  output  file(s),  processing  the  records  returned  from  the  sort,  and  branch- 
ing ?o  its  s^?  on  exit  when  all  processing  is  complete.    It  should  begin  with 
a  driver  routine,  be  followed  by  all  the  routines  needed  to  process  the  sorted 
Records  and  end  with  its  section-exit  paragraph.    Once  the  P^^^^"^^"" 
OUTPUT  PROCEDURE  is  finished,  phase  3  of  the  sort  operation  is  done;  and  con- 

"   trol  is  passed  to  the  sentence  following  the  sort  verb. 

9.    THE  RELEASE  STATEMENT.    The  purpose  of-gn  INPUT  PROCEDU^E Jj.  to  ^^^^^ 
orocess  the  -Qcords  before  they  are  passed  on  to  the  sort-file.    Once  you  nave 
?inirhed  processing  an  input  record  in  your  INPUT  PROCEDURE  f^;!^7,^^^/f,,^'^ 
RELEASE  statement  to  place  the  record  on  the  sort-file.    The  format  of  the 
RELEASE  can  be  found  in  the  IBM  ANS  COBOL  Language  Reference  Manual.    The  ^ 
RELEASE  is  the  equivalent  of  a  WRITE  statement  for  use  on  sort-files.  Even 
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the  FROM  option  works  in  the  same  way  as  it  does  for  a  WRITE;  i.e.,  if  the 
FROM  IS  used,  the  data-name  indicated  in  the  FROM  option  is  moved  to  the  sort- 
record  area  and  then  the  sort-record  is  RELEASED.    The  RELEASE  statement  writes 
the  contents  of  the  sort-record  onto  the  sort-file.    It  may  only  be  used  within 
the  bounds  of  the  section  named  in  the  INPUT  PROCEDURE  clause. 

10.  THE  RETURN  STATEMENT.    The  purpose  of  an  OUTPUT  PROCEDURE  is  to  let  you 
process  the  records  after  they  have  been  sorted.    The  RETURN  statement  may  only 
be  used  within  the  bounds  of  the  section  named  in  the  OUTPUT  PROCEDURE  clause. 
If  the  RELEASE  is  the  equivalant  of  a  WRITE  for  a  sort  file,  then  the  RETURN 

is  the  equivalent  of  a  READ  for  a  sort-file.    The  format  of  the  RETURN  is 
found  in  the  IBM  ANS  COBOL  Language  Reference  Manua.l.    Where  the  RELEASE  called 
for  the  name  of  the  sort  records,  the  RETURN  calls  for  the  name  of  the  sort 
file.    The  INTO  option  and  AT  END  clause  operate  in  the  same  way  as  for  a  READ. 
If  the  INTO  option  is  used,  the  record  description  of  the  output  file  must  be 
identical  in  form  to  the  record  description  of  the  sort  file.    The  AT  END 
condition  will  occur  when  all  the  records  of  the  sort  file  have  been  returned. 
The  statements  between  the  words  AT  END  and  the  period  that  ends  the  sentence 
will  not  be  executed  until  the  AT  END  condition  occurs. 

11.  SORT-WORK  SECTION.    A  WORK  section  following  the  input  and  output  pro- 
cedure sections  is  used  to  contain  all  the  routines  used  in  the  program.  The 
input  and  output  procedures  then  PERFORM  routines  contained  in  the  SORT-WORK 
SECTION.    The  SORT-WORK  SECTION  is  used  not  only  to  preserve  a  structured  pro- 
gram design,  but  also  to  define  the  end  of  the  input  and  output  procedure  sec- 
tions. 

12-    A  sample  program  which  uses  the  SORT  verb  is  at  Inclosure  1. 
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PRACTICAL  EXERCISE 
Personnel  Listing 

1.  The  Personnel  Office  has  requested  a  listing  of  all  personnel  in  the 
battalion  who  have  completed  more  than  35  months  of  service. 

2.  You  are  provided  with  a  report  format  and  card  layout. 

3.  The  report  will  be  generated  from  the  personnel  master  file.  The 
file  is  stored  in  card-image  form  on  a  2314  disk  file. 

4.  -  You  will  keep  a  count  of  the  total  number  of  people  who  have  more 

than  35  months  of  service.    In  addition,  only  20  lines  are  to  be 
printed  (assuming  double  spacing)  on  a  page.    If  more  than  20  lines 
need  to  be  printed  start  over  with  a  new  page. 


FORM  LAYOUT 

1  2  3  4  5  6  .  7 

12345678901234567890 1234557890 1234567890 1 234.557890 1234567890 1 234567890 1 23456789 

NAME  RANK  SSN  MON  SER 

XXXXXXXXXXXXX-XXXXX  XXX  XXXXXXXXX  XXX 

XXXXXXXXXXXXXXXXXXX  XXX  XXXXXXXXX  XXX 

XXXXXXXXXXXXXXXXXXX  XXX  XXXXXXXXX  XXX 

TOTAL  NUMBER  OF  PERSONNEL  WITH  OVER  35  MONTHS  SERVICE  XXX 


PERSONNEL  MASTER  INPUT  FILE 
Record  Position  Field  Name 


1 

-  2 

Battalion 

3 

Company 

4 

-  12 

Social  Security  Number 

13 

-  30 

Name 

31 

-  32 

Pay  Grade 

33 

-  35 

Rank 

36 

-  41 

ETS 

42 

-  47 

Date  of  Entry 

48 

-  50 

Months  of  Service 

51 

-  52 

Number  of  Dependents 

53 

-  80 

Not  Used 

ERIC 
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DUMP  DEBUG  WORKSHEET 
1.    Hexadecimal  Memory  Location  of  Interrupt 
1.    Load  Point 

3.  Relative  Interrupt  Address 

4.  ALC  Instruction  Interrupted 

5.  Corresponding  COBOL  Statement  Numuer 

6.  COBOL  Statement  

7.  COBOL  Source  Data  Names 
Receiving  Operand  _ 
Sending  Operand  _ 

8.  Internal  Data  Name  for 
Receiving  Operand  _ 
Sending  Operand 

9.  Data  Format  of 
Receiving  Operand  _ 
Sending  Operand  _ 

10.  Length  In  bytes  reserved  by 
Receiving  Operand 
Sending  Operand 

11.  Macnlne  Instruction  interrupted 

12.  Operation  Code  of  Machine  Instruction 

13.  Macnine  Instruction  Format 

14.  Length  of  the  Machine  Instruction  In  bytes 
IB.  How  many  Operand  Lengths  in  Machine  Instr 
16.  What  is/are  the  Length(s) 

121-0 13- 1413- ISO-A 
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17.  Base  Register  for  First  Operand 

18.  Base  Address  for  First  Operand 

19.  Displacement  for  First  Operand  • 

20.  Absolute  Address  of  First  Operand 

21.  Contents  of  Storage  Allocated  to  First  Operand 

22.  Base  Register  for  Second  Operand 

23.  Base  Address  for  Second  Opernad 

24.  Displacement  for  Second  Operand 
2!>.    Absolute  Address  of  Second  Operand 

26.    Contents  of  Storage  Allocated  to  Second  Operand 


IF  TEMPORARY  STORAGE  IS  REFERENCED  IH  THE  ALC  INSTRUCTIOM    (TS=    in  LISTX) 
THEi4  FILL  IN  ITEMS  27    THRU  30. 

27.  Relative  Address  of  TS   . 

28.  Absolute  Address  of  TS   

29.  Internal  Data  Name  of  Item  in  Left  Half  of  TS   , 

30.  Internal  Data  Name  of  Item  in  Rignt  Half  of  TS   

31.  Origin  of  Data  and  /or  Reason  for  Incorrect  Format: 

a.    Input  Record    b.    Failure  to  Initialize   

c.    Failure  to  Generate   

32.  Corrective  Action: 


121-013-1413-150-A  2  IA-01-01-21 

us  AFPP  171-19  6/79 
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DEBUG 
USAIA 

SOFTUARE  DIVISION,  C5D 
PRACTICAL  EXERCISE  NUMBER  i 
PROGRAM  NAME:  0UHP4>F 


„    '  270 
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1..  DCS  i'EMCHN  s»Tim  cobol 


C5F 


28/08/78 


93031 
3aOC2 
13003 

OOOCS 
))OCi 
90CCT 
0Q0C8 
93009 
CCOlO 
90011 
00012 
00913 
OOOU 
9001! 
33016 
00017 
03018 
03919 
90020 
00021 
00022 
90023 
00024 
9002) 
30026 
00027 
90028 
Q0C29 
00030 
00031 
00032 
00033 
90034 
00039 
90036 
00037 
00038 
00039 
00040 
00041 
0C042 
00043 
00044 
9C045 
C0046 
00047 
00048 
90049 
00090 
OOOil 
900S2 


B»S1S  C320i'P 
3C9019  I5EMIF1C»TICN  CIVISICN. 
:C9a23  PW'.M^-IO.  CU^P-PE. 

CC9950  EKVIWEHT  CIVISION. 
CCOMC  CCMIWATICN  SECTICN. 
CCC97C  SPECUl-NAPES. 
000a«0      C31  IS  CHANl. 
3CCC«t  1SPIV01'TPI;T  SECTICK. 

cEoilc        isSlCN  TO  5tS0afc.UT-Z3U-S. 

C00133      SELECT  PRINTER 

CCC14C         iSSIGN  TO  SYS30Hja-1433-S. 

000l!0  OTA  OIVIStOKi 

"COltO  fllE  SECTICN. 

7  ?SRSONNEL-«STER-MLE 
UBEL  SECCUCS  STIHC4R0. 
IHOl-PERSQHKEL-P»STE"-RCD. 
C5  It'Cl-SDC-SEC-NUf 
C5  IKQl-NAKE 

S  llci-NUWER-DEPEKEENTS 
C5  IMCl-XONTHn-PA" 
05  PIUEP 
P^INTEP 

cmi'iv  VI  OROl-PRINTEP-RCD 

CCMIC  77  VS-NASTEP-FILE-ECF-SHITCH 
"''^^  Is-TOTR-FA-lLy-SIZE-SUH 


OCOIBO 
CC019C  01 
000290 
000210 
000220 
000230 
090240 
900259 
000260 
CC027C  FO 
000280 
C00290  01 


PIC  XI9). 
PIC  KllB). 
PIC  X(2t. 
PIC  1((5I. 
PIC  9(2). 
PIC  9I4)V9(2I. 
PIC  X(38l. 


PIC  l(«133Ii 


0C032C  77 
0C0330 
3C034C  77 
0G03S0 
0CO360  77 
CC0370 
0C03fl0  77 
000390 
000400  77 
000410 
000429  77 
000430 
CCOA40  77 
00C453 
C00460  77 
000470 
0CC480  77 
000499 
CCC500  77 
CC0510 


kS-TOTAL-NET-Pit-SUH 

WS^)EPMTI'£^T-l•OLD 

«-fEOERiL-T*X-HOlD 

KS-flCA-TtX-HOLD 

HS-«ET-P»Y-K)10 

kS-FAHRY-SIZE-HCLO 

»S-TiX-R>Tt-HOLD 

^S^ICM*X-RATE 

kS-0-OEFEHDENTS-T»X-«»TE 


PIC  X. 

PIC  S9(3I 
US»GE  IS  COHP-3.  • 

PIC  S9I5IV9(2) 

LSAGE  IS  COHP-3. 

PIC  X(2» 
VALUE  IS  SPACES. 

PIC  S9(4IV9I21 

USAGE  IS  COHP-3. 

PIC  S9I4IV9I2I 
USACE  IS  COHP-3. 

PIC  S914IV9I2I 
USAGE  IS  COHP-3. 

PIC  S9I3I 
USAGE  IS  COfP-3. 

PIC  S9V9(2l 

USAGE  IS  COHP-3. 

PIC  SV9I3I 
USAGE  IS  C0'<?-3. 

PIC  SV9nl 
USAGE  IS  COHP-3 
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003S3 

00094 

OCGSt 

00056 

00057 

30058 

30059 

30063 

00061 

00062 

00063 

00064 

30065 

30066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

0007* 

30075 

00076 

00077 

00078 

00079 

00080 

00091 

00082 

00083 

00084 

00085 

00086 

00387 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00015 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

001C3 

00104 

00105 


OC052C 
3CC530  77 

:cos4o 

0C0^50 
0C0560  77 
300570 
3C058C 
000590  77 
CC060C 
0C061C 
CCC62C  77 
C0C61C 

ccoe40 
ccoesc  77 

3C066C 
OC067C  77 

ocoeec 

00069C  01 

CCG7CC 

000710 

000720 

CC0730 

CC0740 

0C075C 

000760 

0CO77C 

OC078C 

000790 

ccceoc 

OCOQIO 
0C0820 
CC0830 
000840 
0C0850 
COO 863 

ccce70 

000880  01 

000890 

CC0900 

0C0910 

OC0920 

CC0930 

000940 

CC095Q 

0C0960 

CC097C 

000980 

0C0990 

OCIOOQ 

001010 

OC102C 

001330 

001040 


^.l^^EPEKOENTS-T«X-RAT£ 


»,S-5-e-0EPEK0£*<TS-T4X-»ATE 


WS-9-l  2-CEPBDENTS-T  iX-a  4T  t 
IIS-13_qq_0EPeN0ENTS-TAX-RaTE 

WS-SWITC»-OFP 
ttS-COLU**N-t-EADlNG. 


05 

05 

FILLER 

C5 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

MS-DETAIL-LINE, 

OS 

FILLER 

05 

WS-SOC-SEC-I 

05 

FILLER 

OS 

WS-NAHE 

05 

FILLER 

C5 

KS-MDtJTHLY- 

05 

FILLER 

VALUE  IS  *m2, 

PIC  SV913I 
tSK-E  IS  CQ'*?'3 
ViLtfS  IS  ♦•15. 

?1C  SV^iSI 
LSAC-5  IS  CO**'-! 
VftL'JE  IS  ♦.12. 

P!C  SV0<3» 
IS  COHP-3 
IS  ♦.3?. 

PIC  SV9t31 
IS  CO"?-! 
IS  ♦.35. 

PIC  X 
IS  'O'. 
PIC  X 

IS 


C5  «S-NUHBER-DtfENDENTS 

C5  FILLER 

C5  WS-PAV-AVERACE 

C5  FILLER 


USAGE 
VALUE 

ISACE 
VALUE 

VALUE 

VALUE 

VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 

VALUE 

VALUE 

VALUE 

VALUE 

VALUE 


PIC  X( 
IS  SPACE 

PIC  XI 
IS  'SSN' 

OIC  X< 
IS  •NA^'E 

PIC  X( 
IS  'MQM 

PIC  X( 
IS  'NO  0 

PIC  XI 
IS  'PAY 

PIC  Xt 
IS  'FED 

PIC  X{ 
IS  'FICA 

PIC  XI 
IS  'NET- 


14* 
S. 
18t 

15) 

13« 

HLV  PAY», 
11) 

P  DEPS'. 
10) 
AVE*. 
11) 
TAX', 
11) 
TAX*. 
1<J) 
PAr«. 


PIC  X(ll) 
S»ACES. 

PIC  X(9). 

PIC  X(5) 
IS  SPACES. 

PIC  XI18). 

PIC  X<6I 
SPACES. 

PIC  sss«9.99. 

PIC  X(6) 
SPACES. 

PIC  Z9. 

PIC  XI6) 
IS  SPACES. 

?IC  «»«19.99, 

PIC  X(2) 
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0C106 
03107 

ooloa 

sous 

0011 1 

00112 

30113 

0C114 

OQllS 

00U6 

00117 

00119 

C011« 

00120 

0C121 

00122 

30123 

00124 

00125 

00126 

70127 

30128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00134 

C0140 

00141 

00142 

00143 

CQ144 

00145 

00146 

00147 

00148 

00149 

C0150 

00151 

00152 

00153 

00154 

00155 

0Cl>6 

00157 

00158 


001C5C 
00106C 
001Q70 

ccicec 

ooic<): 

OOllOC 
OClllC 
00112C 
00113C 

001 i4r 

0C115C 
C0116C 
001170 
CCllPC 
00119C 
C012CC 
001210 
001220 
C01230 
€01240 
001250 
CC»?60 
001270 
OO120C 
001290 
0C13CC 
0C131C 
00132C 
CC1330 
001340 
0C135O 
0C136C 
0C137O 
0C138C 
001390 
CC14CC 
00.141  C 
001420 
001430 
001440 
0C1450 
001460 
001470 
001480 
001490 
00150C 
001510 
001520 
C01530 
C0i;40 
001S50 
00156C 
0C157C 


CI 


VALUE 

IS  SPACES. 

C5 

kS-FEDEPAl-TAX 

9IC  MS$9, 

99, 

05 

VALUE 

PIC  XiSI 
IS  SPACES* 

O 

kS-'^AX-RATS 

PIC  VZ9* 

35 

VAi.UF. 

PIC  X(7) 
IS  '  X'* 

C5 

WS-PICA-TAX 

PIC  ««»»9, 

99, 

C5 

PILLER 

VALUE 

PIC  Xt3) 
IS  SPACES* 

C5 

WS-NET-PAV 

PIC  sst«9. 

9?, 

C5 

FULEP 

VALUE 

PIC  xnii 

IS  SPACES* 

tiS- 

FOOTIKG-LINE* 

C5 

FILLER 

VALUE 

PIC  X(35l 
IS  SPACES* 

05 

FILLER 

PIC  XOl) 

•DEPARTI-ENT  TOTAL  FAMILY 
C5  MS-TPTAL-FA««ILY-SIZE 
C5  FILLER 

C5  WS-TOTAL-NET-PAV 
05  FILLER 


VALUE 
SIZE' 


IS 


PIC  2Z9. 

PIC  X(21l 
VALUE  IS  '  AND  TOTAL  NET 

PIC  «»»t9,99, 

PIC  XI34) 
VALUE  IS  SPACES* 


PAYS 


POCCeOURE  CIVISION* 

OPEN  INPUT  PERSONNEL-**ASTEB-FILE 

OUTPUT  PRINTER* 
•«VE  VS-SWITCH-CFF  TC  MS-^ASTER-FI LE-EOF-SWITCH. 
PERFORM  OOlC-REAO-ANO-PR INT  TMqu  0010-EXlT 

UNTIL  WS-fASTER-FILE-EOF-SWiTCI-  EOOal  TO  WS-SWITCM-ON. 
CLOSE  PERSCNNEL-fASTER-FILS 
PRINTER* 
.    STOP  RUN, 
OOlO-REAO-AND-PRINT, 

READ  PERJChKEL-J'ASTER-PILE 
AT  END 

PERFORM  0020-TOTALS-'*TS  THRU  0020-EXIT 

HOVE  WS-SWITCH-CN  TO  *«S-l*ASTER-FILE-EOF-SM  ITCH 

CO  TO  OCIO-EXIT* 

IF  WS-OEPAPTMENT-HCLC  EOU£L  TC  SPACES 
PERFORP*  OC30-»-EAOINf>RTN  THRU  0030-5X1 T 

ELSE 

IF  WS-CEPARTfENT-HCLO  NOT  EQUAL  TO  IMOl-DEPARTt^ENT 
PERFORM  0020-TQTALS-RTN  THRU  0020-EXIT 
PERFORM  0030-HEA0INC-9TK  THRU  0030-EXlT. 
IF  IKOl-NUMfiER-OEPENOENTS  EQUAL  TO  ZEROS 

HPVE  WS-O-OEPENCENTS-TAX-OATE  TO  MS-TAX-RAT£-^<OLD 
ELSE 

IF  I«0l-NLMBER-OEPENDENTS  LESS  THAN  5 

MOVE  »iS-l-4-0EPesCE«*TS-TAX-RATE  TQ  WS-TAX-RATE-HOLO 
ELSE 

IF  IfOl-N'JUBER-OEPENCENTS  LESS  THAN  9 
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0015«»  001580  W:VE  W-5-8-DEPf f/X-PATE  TO  WS-T*x-RATE-HOLD 

COUO  001590  ELSE 

OOUl  OCUOC  IF  l»'CI-WPER-DEPEN3EKTS  LESS  J»kH  13 

50U2  OClfclC  "OVE  fS-^-U-JEPEVOc^TS-TAX-OATE  TO  HS-Tax-J»AT£-H01D 

301f3  CCU2C  ELSE 

00U3C  >^VE  WS-l3-c<J-0Ee  =  NCEMS-TAX-RAT£  TO 

QC165  C016AC  kS-T  tX-PSTE-wOL:?. 

C0166  CCU^O  •niLTlBLY  l«'Cl-"CMHLV-PAV  9Y  WS-TAX-RATE-HQLO 

30167  00U6C  GIVING  HS-FEDEO AL-T4X-K?lP, 

C016^  CC167C  "VLTIPLt  1  >'Cl->'Cr!iTMLV-P4Y  6Y  wS-pICA-tax-'^ ATE 

00169  0Clt8C  GIVIKC  HS-'=ICA-TAX-^'3LCe 

:0173  COl'-'JC  SUBTRACT  WS-^ ICA-TAX-HCLC  W^f-PcOEP AL-TAX-HQLO  P^T* 

00171  CC17CC  I«01-*'CNTHLY-PAV 

00172  00171C  GIVIKG  hS-NcT-pav-hOLL* 

00173  30172C  ClVlOE  *<S-NET-PAY-HOLr  BY  hS-FAMiL  Y-SI ZE-HCLD 
30174  C01730  GlVlUG- WS-PAY-av£eAGE. 

0C175  C0174C  "ove  iMoi-scc-SEc-NUP*  TO  ws-scc-sec-Nu«. 

00l7fr  301750  H3VE  1>«01-NAHE  TC  HS-NA^E. 

00177  CC176C  "OVS  1  "Sl-^CN'TWLY-PAY  TT  i^S-VCMt-L Y-P4Y, 

00178  00177C  fOVE  iKOl-MfMeER-DEPENOESTS  TC  WS-NUHaER-0EPE»i:E»4TS . 
0C179  001780  «DVF  WS-FEOEH AL-tax-hOLO  7Q  hS-PEOE« AL-TAX. 

OOl^C  CC179C  fOVE  WS-TAX-«lATE-t-CLC  TO  HS-TAX-PATE. 

301S1  CCnOC  "OVE  hS-FICA-T&X-HOLC  TP  wS-FICA-TAX. 

00162  OCIBIO  "OVE  kiS-KEI-PAY-WGLn  TQ  hS-NET-PAY. 

00183  Q0ie2C  AOD  ttS-NET-PAY-MOLD  7C  iJS-TCTAL-NET-PAY-SU>', 

OOm  001830  ADD  WS-FAHILY-SI ZE-MCLD  TO  WS-TOTAL-FAHlLV-SIZE-SU'<. 

00115  0CIB*0  WITE  C»01-PRI*!TEP-RCC  FRC  hS-OETAIL-LI NE 

001S6  001850  AFTER  ACVANCING  2  LINES. 

00lf7  CC1P6C  0010-EXIT.  EXIT. 

00188  CC137C  C020-TOTALS-RTK. 

00189  001880  »^VE  WS-TOTAL-F^«*lLY-SIZc-SUK  TO  WS-TOTAL-FAHllY-SHE. 
0019C  CC13*»0  MOVE  WS-TOTAL-rEl  PAY-SU»*  TC  HS-TOTAL-NET-PAV. 

00191  001900  WRITE  CROl-PRIMTER-^CO  FRO"  WS-FCOTING-LINE 

00192  OCI910  AFTER  ADVANCING  3  LINES. 

30193  001920  MOVE  ZEPCS  TO  WS-TO"  AL-^A^ILV-SI ZE-SUM 

001S4  001930  WS-TCTAL-NET-PAY-;  U*". 

00H5  0C194a  CC20-EXIT.  EXIT. 

00196  001950  0030-HEAOIKG-RTK. 

001<;7  0C196C  MOVE  IHOl-DEPARTHENT  TC  HS-DEPiRTMENT-HOLOr 

00198  OC1970  WRITE  OROI-PRINTER-RCD  F«a*«  hS-CCLU»4(i-HEADINC 

00199  0C1S8C  AFTER  ADVANCING  CHAM. 

00200  0CI99C  0030-EXlTn  EXIT. 
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DNH»l-l5l  FP  pePSCKNeL-^ASTE^-cilr 

0HM,1-I9fc  01  l«'Cl-PE«'S0KSSL-»'ASTe5-6Ca 

C»k«»  1-104  02  FIUE<1 

0^»»«l-!2C  02  I^CI-MJ-BEB-DEPENDENTS 

OK.»,l-2;2  C2  I«<01-Kj'^T»-l.V-PAV 

0N*t«l-379  02  FILLE« 

0^t#.l-?C7  PRINT?:! 

0»;*»l-^2e  ?1  CBCl-"lNTei^-9CC 

DN»'-l-i5*  77  taS-»**ST£R-FILE-ECF-S^ITCH 

'•A''-2-:C0  77  WS-TCtAL-FA-ILV-SlZE-St" 

77  HS-TOTAL-NET-PAY-S'J- 

0KM-2-C67  77  »«S-P6FART»'ENT-H0LD 

PSM«2-C95  77  WS-F6CEfl*L-TAX-hQL0 

DKM-2-124  77  fcS-FICA-TAX-HCLD 

PN«»2-150  77  WS-NET-PAY-HPLD 

0N-«2-l7«  77  WS-FAl*lLy-SIZE-HOLO 

r>SM-2-2i7  ''7  »iS-TA>-P»TS-wCLC 

f"N»«  2-233  77  WS-FICA-TAX-RATE 

ONH-2-259  77  *,S-0-CEFENDEHTS-TAX-RATE 

DN»»2-2<»3  77  hS-l-^-CEPEHOEHTS-TAX-RAlE 

0KN.'>-32«}  77  liS-5-8-rEPEN0ENTS-T*J<-B»TE 

0KM-2--»65  77  US-9-12-0EPENCENTS-TIX-a»TE 

Cfc—2-402  77  WS-13-9<>-DEPENCEMTS-T4X-?.ATE 

DMM-2-440  77  WS-SKITCH-CN 

0N«i-2-4t2  77  WS-SWITCH-OFP 

tK>K-3-C00  *  01  hS-COlUHM-HEADINi", 

DKH-3-030  02  FILLER 

0Ki»«3-'H^  02  FILLER 

0NM«3-C6e  02  FILLER 

0SW-3-C87  02  FILLER 

ONH^I-lCfi  02  FILLER 

CN»»3-12;  02  FILLER 

0M«3-l*4  02  FILLER 

DM«3-*''  02  FILLER 

DN»«-3-i«»2  02  FILLER 

ONH-3-201  01  WS-DETAIL-LIKE 

DS''-3-23l  02  FILLER 

ON»««3-25C  02  hS-SOC-SEC-KUH 

0»i>^3-274  0?  FILLER 

0N*»»?-293  02  ^tS-KAf-E 

OH»t«3-310  02  FILLER 

ONH-3-329  02  MS-»'CMHLY-PAY 

DNM-2-364  02  FILLER 

0N««»3-3<>3  02  taS-NL'wER-DFPENCENT? 

f)Mi«3-420  0?  FILLER 

0HH-3-«3«;  02  wS"-Pit-AVE!»flGE 

CNt»»  3-474  02  FILLFR 


BASE      01S«»L      INT^IML  W'^E      OP^lNlTION  USAGE 


OTP-Ol 
9L»I 

eL-i 

9L»1 
9L-1 
QL'l 
PL-i 
BL'l 
BL»l 
OTF-02 
9L«2 
BL«3 
SL«3 
BL-3 
BL*3 
BL-3 
BL-3 
BL-3 
BL-3 
aL»3 
BL-3 
3L-3 
BL"3 
BL-3 
BL-3 
BL-3 
9L«3 
BL-3 
BL-3 
BL-3 
BL-3 
9L-3 
BL-3 
9L-3 
aL-3 
BL-3 
BL-3 
8L-3 
BL=2 
BL-3 
BL-3 
BL-3 
BL-3 
BL-3 
BL-3 
BL-3 
BL-3 
BL-3 
6L-3 
9L-3 


330 
330 
3J9 
ll<* 
310 
322 
3?4 
32A 

333 

330 

301 

303 

307 

009 

300 

311 

315 

317 

019 

31B 

010 

OIF 

321 

023 

325 

026 

328 

32r 

336 

349 

357 

364 

36F 

3.9 

384 

08P 

3A9 

0A8 

093 

33C 

3C1 

303 

309 

3E1 

3E7 

3E9 

3EF 

3F7 


0N«*»1-151 

DSH-l-234 

0«««««l-260 

ONM'1-279 

ON'««1-304 

ON'*-1-320 

0N»^  1-352 

ONM.l-379 

DN'*»l-397 

DN»*«l-42e 

ONM-1-45* 

ON»'»2-30D, 

ON«*-2-334 

DN'<-2-3<>7 

OMK»2-095 

DNH-2-124 

0NH:i2-l53 

DNH»2-178 

ONH-2-207 

0"H«»2-233 

ONM-2-259 

D><M»2-293 

DNM-2-329 

DNM-2-365 

QNH«2-402 

0NH»2~443 

0N«*»2-462 

0N^« 3-303 

DNi*-3-O30 

DNH-?-049 

DNf««3-06B 

DNM-3-0B7 

DNW-3-106 

ONM.3-125 

ONM-3-144 

0N»^3-163 

DN»««3-i82 

DN>»»3-201 

ONM-3-231 

ON»*-3-250 

ON«««3-274 

OMN-3-293 

DNM-3-310 

D»IM«3-329 

ONM-3-364 

ON»»»3-393 

DNM-3-420 

0NN|=3-43'# 

0N'i»3~474 


OS  0CL90 
OS  9C 
OS  IBC 
D5  2C 
OS  5C 
OS  2C 
OS  6C 
DS  38C 

OS  I33C 
DS  IC 
OS  2P 
DS  4P 
OS  2C 
DS  4P 
DS  4P 
OS  4P 
DS  2P 
OS  2P 
OS  2P 
DS  2P 
DS  2P 
DS  2P 
DS  27 
2!' 
IC 
DS  IC 
DS  XL122 
DS  14C 
DS  LBC 
15C 
DS  :3C 
DS  LiC 
DS  IOC 
DS  UC 
DS  lie 
DS  1<»C 
DS  0CL133 
DS  lie 
OS  9C 
OS  5C 
OS  18C 
DS  6C 
DS  8C 
Oi.  6C 
DS  2C 
DS  6C 
OS  8C 
DS  2C 


DS 
DS 


OTPSO 

GROUP 

01  SP 

DISP 

DISP 

DISP 

DISP-S«* 

OISP-NK 

DISP 

OTFPR 

DISP 

DISP 

COMP-3 

COMP-3 

DISP 

COHP-3 

COHP-3 

COMP-3 

COHP-3 

COHP-3 

COHP-3 

COHP-3 

COHP-3 

COHP-3 

COHP-3 

COHP-l 

DISP 

DISP 
GROUP 

DISP 

Oi'P 

DliP 

DISP 

DISP 

DISP 

DISP 

DISP 

DISP 

GROUP 

DISP 

DISP 

DISP 

DISP 

OISP 

MM-EDIT 

DISP 

NH-EDIT 

DISP 

NH-EDIT 

DISP 


IA-02-O3-I5 
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r 


TGT 

save  AREA 

SHITCH 

T4LLV 

SOFT  SAVE 

EHT3Y-SAVE 

C355C 

SC*T  CT-c 

::<A0 

NSTC-REELS 

c:5A<r 

SCPT  CCT 

CD5A6 

WCPKINO  CELLS 

3C5A8 

SORT  ciLE  SIZE 

OCtCP 

SORT  MTOt  SHE 

CC6CC 

pr.T-VN  TH 

CCfEC 

TGT-VS  TBL 

::6E'. 

SOPTAA  ADDRESS 

0C6EP 

LENGTH  OF  VN  TBL 

CC6EC 

LNGTH  OF  5C<lTAe 

0C6EE 

PG"  n 

CCfFC 

AdNITl) 

oo6Fe 

UPSI  SWITCHES 

OOfeFC 

CVEilFLQW  CELLS 

0070^ 

eL  CELLS 

CC7CA 

CTFAC1  CELLS 

CC710 

TEfP  STORAGE 

CC718 

TEMP  STOPAGE-2 

ccTze 

TECP  STCHAGE-3 

00738 

TEt-P  STPPA';E-4 

CC738 

BLL  CEL«  J 

0C738 

VLC  CELLS 

0C73C 

SPL  CELLS 

0C73C 

IMOEX  CELLS 

0C73C 

SUPAQtt  CELLS 

0073C 

CNCTL  CELLS 

0073C 

PFKCTL  CELLS 

0073C 

PFt'SAV  CELLS 

0C73C 

VN  CELLS 

00750 

SAVE  AREA  «2 

0075C 

XSASM  CELLS 

007  5C 

XSA  CELLS 

0075C 

PA-^AM  CELLS 

CC75C 

RPTSAV  AREA 

0075C 

CHECKPT  CTR 

0a75C 

lOPTR  CELLS 

0075C 

:«AL  PPOL  >EX» 

IC  ILIT*0»  C^SCOCCI  -^CACZOS?  202a?l?0  4B202040  202120FD  23212000 
:a  UIT*24»        OCOCOOCO    OC^OCJO^    535flC2Cf    07C5D5A0    5B55C2C3  D3D6E2C5 
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CVE^HOw  CELLS  C:7fc6 

VIRTUAL  CFILS  -07*9 

PPCCEOUfiE  Hkvi  CELLS  C:7frC 

GE^£3*T£5  K*fE  CrlLS  C:7eA 

Sue^'c  ACDSESS  CELLS  CC7C4 

VM  CELLS  :C7f* 

LIBERALS  :C7CC 

CIS?L»Y  LITERALS  CC9C0 


«ECISTE<1  ASSIGNMENT 

flCG  6  H  -3 

WC  T  ft  -I 

REG  S  i>L  -2 


CT  Ai  T 

tv'J 

W 

OCC8C0 

58 

10 

0  1C8 

1 

L 

1    irai^  I'll 

Ul  r*l 

A  A  A  a  1^  ^ 

48 

10 

C  0<!6 

Cu 

1  Attain  191 

A  A  A  n  >    ,  h 

9* 

1  CC3 

Ul 

Nl 

nnn  fit  vtaci 

ULt.01.  t 

41 

10 

C  088 

LA 

1  OAfi  f  n  191 

i  f  uOn I U 1 1 £  1 

1  fT+^9 

3009/.0 

58 

00 

0  icn 

L 

0,1CS(0,13I 

DTF«l 

3C09U 

18 

40 

LR 

4,0 

00C816 

05 

tiQ 

BALR 

15,0 

100619 

50 

00 

F  CC6 

ST 

3,004(3,151 

OOCdlC 

45 

30 

F  COC 

BAL 

o,ooc(oa5> 

0CCO2C 

COCOOOOO 

DC 

X*00030030* 

0CC824 

OA 

32 

SVC 

2 

?oce26 

41 

10 

C  CP8 

LA 

1,083(0,121 

HT+32 

O00B7A 

5B 

00 

0  ICC 

L 

0,ICCOtl3f 

OTF-2 

000B2E 

18 

40 

LR 

4,0 

0CCS30 

C7 

00 

9CR 

0,0 

0CC932 

C5 

PO 

BALR 

15,0 

50 

00 

F  C08 

ST 

0,006(3.  r;) 

0C0B3e 

45 

00 

F  OOC 

BAL 

0,00C(0.15) 

00083C 

OCCOOOOO 

DC 

X>OC030030' 

3008^0 

OA 

02 

SVC 

2 

3CC8^2 

50 

•20 

0  ICO 

ST 

2, lCa(3,13l 

81  >2 

58 

80 

D  ICO 

L 

8,1C3(3,13I 

EL  -2 

02 

00 

6  ceo  6 

0?6 

MVQ 

000(1. 6», 026(61 

DNM«l-^5iV 

0CC850 

58 

30 

0  2C8 

L 

0,236(0.13) 

VN«0i 

0CC894 

50 

00 

0  1P4 

ST 

0,IF4(0,13I 

PSV«1 

0CC858 

59 

00 

C  OK 

L 

0,01C(0,12I 

GN*OI 

000650 

50 

00 

0  2ce 

ST 

0,20d(0.13) 

VN>01 

303860 

EOU 

QC0a6C 

59 

20 

C  023 

L 

2,020  (aaci 

GN-02 

0CCR6^ 

05 

00 

6  OCC  <> 

C25 

CLC 

030(1,6), 325(61 

DNH-1-454 

3C096A 

C7 

82 

9C« 

6,2 

0CC86C 

59 

10 

C  C04 

L 

1,304(0.121 

PN"Ol 

IA-0Z-03.'5 
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n 


c:c90A 

07  Fl 

159 

CCCW6 

JCCWfr 

P2  71 

D 

IOC 

7 

3CC90C 

F9  10 

0 

it:6 

e 

58  FC 

C 

c*c 

OaC4£6 

07  Af 

156 

F9  71 

3 

ICC 

H 

oi: 

0009EE 

Fl  7f 

0 

103 

D 

no 

:C0<>F4 

F3  11 

6 

017 

Z 

106 

159 

CCCSFA 

«3  10 
C7  fl 

C 

»a 

l?9 

occf 

30U03 

F?  71 

0 

IOC 

j22 

31P«06 

F9  10 

3 

IC6 

c 

Obi 

3CCADC 

53  FC 

C 

C50 

OOCAIO 

07  AF 

159 

0C0A12 

FB  71 

0 

IDO 

6 

OIF 

330A19 

Fl  76 

D 

ICO 

9 

1C3 

30CaIE 

FB  11 

6 

017 

D 

106 

151 

C00A2A 
00CA28 

5fl  10 
C7  Fl 

C 

C48 

161 

300A2A 

O00A24 

f2  71 

nc 

7 

022 

aOOA30 

F9  11 

D 

1D6 

c 

06" 

0C0A36 

58  FO 

C 

OH 

O0OA3A 

07  AF 

162 

000A3C 

F8  71 

0 

IDC 

6 

021 

OO0A^2 

Fl  76 

c 

ICO 

D 

IDO 

O00A48 

F8  11 

6 

017 

0 

1S6 

164 

0C0A4E 

ooca;2 

58  10 
C7  Fl 

C 

048 

164 

00CA54 

CC0A5A 

F8  71 

0 

IOC 

ft 

023 

300A5A 

Fi  76 

0 

100 

100 

00CA6O 

F8  11 

6 

017 

0 

106 

166 

3CCA66 

300A66 

F2  75 

0 

IDC 

7 

024 

000A6C 

FC  51 

C 

1D2 

6 

017 

000A72 

Fl  76 

D 

IDO 

0 

ICO 

000A78 

Fl  76 

D 

IDO 

IDO 

00CA7E 

FB  33 

6 

C09 

0 

104 

300A64 

94  OF 

6 

C09 

168 

OOOAAB 

F2  75 

0 

100 

7 

024 

000A8E 

FC  51 

D 

1D2 

i 

OlS 

300A9^ 

Fl  75 

D 

ICQ 

0 

100 

O00A9A 

F8  33 

6 

OOD 

0 

m 

170 

OOOAAO 

FB  73 

D 

IOC 

6 

000 

000AA6 

FA  33 

D 

10* 

6 

009 

DOOAAC 

F2  75 

D 

ID8 

7 

024 

000AB2 

FB  33 

C 

ICC 

0 

ID4 

OOOABE 

F8  33 

6 

Oil 

0 

ICC 

OC0A3E 

OF 

6 

Oil 

17? 

CC0AC2 

F8  73 

0 

108 

6 

Oil 

GMOll 


GK-014 


GN^OIS 


GK»012 


6Cn 

15,1 

EOU 

* 

PACK 

100(:tl3li322(2i7l 

TS»Ol 

0S«»»l-3S 

CJ> 

106(:.l3).36';ilil2) 

TS-07 

LITM 

I 

15,0-CI0,12I 

GS'013 

3Ca 

10,1? 

ZAP 

lOOl:. 131,310(2, 61 

7S»01 

C?*«»«2-2« 

<*va 

100(^.131, 100(7, 131 

TS-01 

TS-01 

ZAO 

017l2,6f, 136(2,13) 

0NH«2-2.37 

TS-37 

L 

l,04-(3,12l 

G'4-012 

9C^ 

15.1 

50"  J 

• 

PACK 

100(',13),022(2,7I 

TS-01 

DN*'-l-3; 

CP 

106(!.13),36A(1.12) 

TS»07 

L1T*2 

L 

15,Cf :{D,121 

GN«OH 

9C1 

10,15 

ZAP 

1D0(:,13I,31F(2,6I 

TS»Ol 

DNH-2-3: 

^VO 

lOOli, 131, 10017, 131 

TS»Ol 

TS-01 

ZAP 

017(2,61,106(2,131 

DNN«2-237 

TS-37 

L 

1,04*0,12) 

GN«012 

5C^ 

15,1 

EQU 

• 

I00(a,13» ,02212,7) 

TS«01 

DN»»»l-3: 

CP 

136(2, 131, 068(2, 121 

T5»07 

LIT*3 

L 

15,054(0.12) 

GN-015 

BCR 

10.15 

ZAP 

100(3,131,321(2,6) 

TS«01 

ONM-2-3- 

MVO 

100(?.13) ,100(7,13) 

TS-01 

TS«01 

ZAP 

017(?,6}, 106(2, 131 

DNM-2-207 

TS-07 

1.04^(3.12) 

GN-012 

SCR 

15*1 

EQU 

• 

ZAP 

ID0(?,13),023(2,6I 

TS-01 

DNH«2-4 

HVO 

IDO(3,13),1DO(7,13) 

TS-01 

TS-01 

2A» 

017(2, 6), 106(2, 13)  • 

DNM-2-207 

TS-07 

EOU 

• 

PACK 

1001?, 13), 024(6, 7) 

TS'Ol 

DNH»l-3 

^? 

102(6, 13), 017(2, 6) 

TS-03 

DNM-2-2 

MVO 

100(8,131,100(7,13) 

TS«Ol 

TS-01 

HVO 

100(9, 13), 100(7, 13) 

TS-01 

TS-01 

ZAP 

009(4t6), 104(4, 13) 

0NH«2-95 

TS»05 

HI 

009(6) .K'OF* 

ONH-2-95 

PACK 

100(B,13),024(6,7) 

TS»Ol 

DH«»1-J 

HP 

102(6,1?), 319(2, 6) 

TS-03 

ONM-2-2 

MVO 

100(8, 13), 100(6, 13) 

TS-01 

TS-01 

ZAP 

000(4,61,104(4,13) 

OSH-2-124 

TS-05 

ZAP 

1D0(<;, 13), 000(4,6) 

TS-01 

DNK-2-L 

AP 

104(4,13), 009(4, 6) 

TS-05 

DNH-2-9 

PACK 

108(3,13), 024(6,7) 

TS-09 

PHM-1-3 

SP 

1DC(4,13).1D4(4.13) 

TS«013 

TS-05 

ZAP 

011(4,6),1DC(4,13) 

DNM-2-150 

TS-013 

NI 

011(6), X'OF» 

0N««2-150 

ZAP 

lC8(»,l3t.31l(4,6) 

TS-09 

DMM-2-1 
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It 


CPCS5-5>eeE;^ENCE  OICTIJNA^Y 


CAT*  N**ES 

I'^Cl-SOC-ScC-  .U»' 

I««Cl-DE»>AftT»E*<T 
IHC1-»<L«'5E0-CEPEHCENTS 

PRlNTEa 

CMCl-P3I*4TE^-RC0 

US-"*STE9-FILE-ECF-SWITCH 
yS-TGT4L-FA»*ILV-SlZE-SU** 
MS-TOTAL-NET-PAY-SUM 
taS-PE  PAS  T»EST-^CL9 
l#S-FEOE«  Al-TAX-HCLO 
KS-PICA-7AX-M0L0 
WS-NET-PAV-HOLC 
MS-FAi»ILv-SIZE-HCLt) 
KS-TAX-RATg-MOLO 
MS-^IC*-TAX-aATE 
MS-0-DgFENCENTS-T*X-RATE 
yS-l-4-CePENOENTS-TAX-RATE 
MS-5-8-0EPEKCEKTS-TAX-RATE 
WS-c-12-CEPENOENTS-T AX-RATE 
WS-13-9O-0EPeN0EKTS-T AX-RATE 
liS-ShlTCH-CN 
-  kS-S«ITCi^CFF 
WS-COLU-i*-^EA0lNG 
WS-f  ''AIL-LIKC 

WS-:  -SEC-KUM 

WS-N«^E 

WS-"CNTHLY-P*Y 
WS-NU'««FR-CEPENOEKTS 
MS-PAV-AVEPAG6 
kS-FEOE PAL-TAX 
WS-T AX-PATE 
WS-f ECA-TAX 
WS-NET-PAV 
MS-FOOTINC-LINE 
MS-TOT AL-FAMIiy-SI/E 
MS-TOTAL -NET-PAY 


PROCErURE  NA-ES 

COIO-OEAO-ANC-PR INT 
0310-EXlT 
C020-T0TALS-QTN 
0020-ET»IT 


;;eferenc£ 

C3312 

^0132 

JC13? 

J  J  I  3  f 

wU  A^  1 

03l4 1 

cecal 

C0175 

CCC22 

CC176 

CCC2^ 

CC149 

30197 

30176 

00C''5 

C0152 

33155 

0  3l6l 

0C026 

C0166 

00168 

33177 

00191 

00314 

00132 

3013Z 

301 3  7 

C  31  •5 

33030 

30165 

30165 

IRS 

"3191 

0319 1 

:ci«e 

30198 

00C32 

CC124 

C0135 

44*» 

30023 

3C189 

00035 

C0183 

30190 

00197 

C3C37 

00146 

30146 

30 146 

J  A 

C0039 

CC166 

33166 

JU  A  1  J 

3  31 79 

OOO^l 

C016)? 

30170 

00181 

00163 

3C3A3 

CC17C 

00173 

J  J  A  r  3 

3  3182 

00045 

00173 

00164 

00164 

3CC4T 

00153 

031S6 

33159 

0316? 

30049 

G0169 

00051 

00153 

00054 

C0156 

00057 

00159 

C0063 

03162 

OGCf  3 

CC164 

00066 

00135 

301'. 

0CC68 

00134 

C0070 

oolse 

0C198 

CCC89 

00185 

00185 

100O2 

00175 

CCC95 

CC176 

CCC9B 

CC177 

0C131 

C0178 

00104 

CC173 

001C7 

CC179 

COllO 

00180 

00113 

CC181 

CC116 

C0182 

00119 

00191 

00191 

00125 

00189 

CC128 

CC190 

OEFN 

aEFERENCE 

03140 

00135 

ccie? 

CC135 

00145 

C01E9 

CC1^3 

00153 

C0195 

CC143 

O01S3 

00198 
00191 


00191     00199     03198     00198  00198 


03166  00180 


IA.02-03-15 


10 


2o0 
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ESC  TYPE  LABEL  LOAOEO'  REL-PP 

CSECT  OUWO'E  005000  005000 

CSECT  IJSFIHZ  005628  005E28 

•  ENTRY  JJCFH^Z  005E28 
»    ENTRY  IJGFIZZZ  005E2B 

•  ENTRY  IJCFIEZZ  035E28 

CSECT  ILCOSaEO  006000  006000 

ENTRY  ILeOSicl  0060FO 

CSECT  IJOF*OIZ  005010  005010 

•  EHTRY  IJOFAZIZ  005010 

CSECT  ILSDf'lSO  0060C8  0060C8 

bXTtN  STKITOSW 

>.'T«N  ILB0C?G2 


u 


•CST^IY  9AY    NO  OF  0:'S  'AY  *V£     FED  TAX       PICA  TAX  «»£T-PAY 


OSMI  PUCGP**  CKeCic  INTEHfi'jPTION  -  nt  LCCATICS  CGSAUE  -  CQNOITION  lOOE  0  -  DATA  EXCEPTION 
OSCCI  JC?  DUi'PPEl  CANCELED 


IA-02-03-15  12 

O 

ERIC 


CU«?PEl 


2e/C«/79 


22.42.59 


PAGE 


GR  0-V  00035082  C3C05A66  000C54C0  CCCC5000  CCO;5293  5OO05CCE  003350E8  00005308 
GR  8-P    0C0C54C0  CC005C9E  OOO05OC0  OCCCSOOO     CC5C5768  00005548  80335C74  03005A54 

com<i      *cc«  IS  coo?6« 


ccccccco 

FFC5CCC0 

ooccie50 

CC040000 
9nF2F«r? 

45700148 

C6PC0660 

<)120AOOC 

478C0110 

4UA0«48 

4C014570 

<J02CD21B 

02C49120 

4  2A003C7 

05BS47f0 

4710C9C6 

45900 2CA 

42000020 

9133P778 

0298D2G7 

C6010038 

00038FA8 

OCOC30GO 

02EABA70 

4770034C 

802':5G60 

0200C5BA 

801C47.-0 

C4E4D407 
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00001 

PASTS  C?2DfP 

oooc? 

CCOOIC 

IDEKTIFICATICN  PIVISICN. 

000C3 

CCC02C 

ptlCGPAM-IO,  rUMP-PF, 

CCCC3C 

ALlHOc,  LT  HLOfilN, 

oooc^ 

CC0C40 

PEMAPirS,  PE  CESir.NLC  fqr  USING 

ALC  TC 

OEi^UG 

A  Crf^CL  P'^OGSAM, 

00CC6 

CCCC5C 

ENVIPHKMENT  CIVISIC^. 

00007 

0C00<!C 

CCKFIGURATICN  SCCTinN, 

OCCCP 

0C0070 

SPFCIAL-NA^EiS. 

QOco<; 

CC008C 

rOl  IS  CHANl, 

00310 

CCC09C 

INFUT-nUTPttT  SECTICK. 

ocou 

CCOICC 

FTLE 

-CCNTOCL. 

0001? 

ocouc 

SELECT  PFRSCNWEL-MASTSP-FILE 

0JQ13 

00012C 

ASSIGN  TO  SYS006-IJT-2314- 

S, 

00014 

cconc 

SELECT  ^P^NTF'' 

00015 

0C014C 

ASSIGN  TC  SYS005-IIP-1403- 
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0C0l/> 

CCC15C 

CATA 

.  DIVISICK. 
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OCOli^C 

FILE 
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PIC 

X(QU 
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CS  IMCl-NAfc 

PIC 
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00023 

CO0220 

C«;  IMCl-OEFAOTMENT 

PIC 

X(2). 
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05  CILLER 

PIC 

X(5)* 

00025 

000?40 

C5  IMCl-MUNBEF-OEPENOENTS 

PIC 

9(21. 

0C026 

OCO'«C 

C5  iMQl-^'CNTHLY-PAY 

PIC 

<)(4)V9(2  I. 

00027 

30C2^C 

C5  FILLER 

PIC 

X(3a)« 

0CC2f) 

CC027C 

FO 

PRINTER 

0002^ 

0CC2PC 

LAREL  FrCQRCS  CHITTiEO. 

0003C 

0C0290 

01 

OROl-PRIMTEP-RCD 

PIC 

X(133). 
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cco?rc 

^QPKIN^,-STCPAGE  5ECTICN, 

00032 

OC0310 
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WS-MASTER-FILE-EOF-SWITCH 

PIC 

X. 
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OC032C 

77 

VS-TCTAL-FAMLY-SIZE-SU^ 

PIC 

S<»13» 

00034 

ceo '.30 

LSACE 

IS  CQMp-3. 

0003-> 

0C0''4C 
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VS-TGTAL-NET-PAV-SU*' 

PIC 
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0CG36 
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USAGE 

IS  CQMP-3. 
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PIC 
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USAGE 
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IS  COHP-1 

OOOif 
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77 

HS- 

■SW1TCI~0»=F 

PIC  X 

OC070 

0CC6PC 

VALUE 

IS 

00071 

C0069C 

01 

HS- 

■CDLUWN-l-EADING. 

0CO72 

000 70C 

05 

*=ILLEP 

PIC  X(U) 

00073 

0C071C 

VALUE 

IS  SPACES. 

00074 

QC0720 

C5 

PILLER 

PIC  XU8t 

0C075 

CC073C 

VALUE 

IS  'SSN'. 

00076 

0C074C 

05 

FILLER 

PIC  X(15> 

00077 

00C750 

VALUE 

IS  "NAMES 

00078 

CC076C 

05 

FILLER 

PIC  Xtl3> 

00079 

000770 

VALUE 

IS  'MGNTHLY  PAY'. 

CCC80 

flCC79C 

C5 

FILLER 

PIC  xai) 

00081 

CC0790 

VALUE 

IS  'NO  OF  OEPS*. 

0C082 

ocoaoo 

05 

FILLER 

PIC  X(10> 

000B3 

OCO^tlC 

VALUE 

IS  'PAY  AVE'. 

00064 

000820 

C5 

FILLER 

PIC  X(1U 

0CQf5 

CC083C 

VALUE 

IS  'FED  TAX'. 

00066 

0C0A40 

C5 

FILLER 

PIC  X(1U 

000 f  7 

occeso 

VALUE 

IS  'FICA  TAX'. 

oooae 

0C086C 

05 

FILLER 

PIC  X(1«J) 

00089 

CC0870 

VALUE 

IS  'NET-PAY'. 

0009C 

CCCC80 

01 

WS-DETAIL-LINE. 

00091 

0C0890 

C5 

FILLER 

PIC  xiin 

00092 

CC0900 

VALUE 

SPACES. 

00093 

OC0910 

05 

HS-SCC-SEC-NUK 

PIC! X(9). 

00094 

CCC920 

05 

FILLER 

.  PIC ;X<5r 

00095 

CCC930 

VALUE 

IS  SPACES. 

03096 

0C0940 

C5 

WS-l^AME 

PIC  Xdfll. 

00097 

ccc<;5C 

C5 

FILLER 

PIC  X{6I 

00098 

0CO960 

VALUE 

SPACES. 

00099 

0CC970 

05 

WS-fCNThLY-PAY 

PIC  »»»»<». 99. 

OCICO 

oco9ec 

C5 

FILLER 

PIC  X(6I 

00101 

CC0990 

VALUE 

SPACESr 

00102 

QCICOC 

C5 

WS-NUMBER-CEPENDENTS 

PIC  Z9. 

00103 

001010 

05 

FILLER 

PIC  X4M 

00104 

001020 

VALUE 

IS  SPACES. 

0C105 

C0103C 

C5 

WS-PAY-AVfOAGE 

PIC  ♦'»»'9,99. 

> 
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OOlOib 
00107 
OOlCP 
001C9 
OOllC 

ooni 

00117 
00113 
001  lA 
00115 
OOUA 
J0117 
00118 
0011<) 
GC12C 
OOUl 
00122 
00173 
00124 
00125 
001?A 
0012T 
0012R 
0012O 
C0130 
00131 
00132 
0013* 
00134 
00135 
30136 
00137 
0013B 
00139 
C014C 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
0014R 
00149 
C015C 
00151 
001!2 
00153 
00154 
00155 
00156 
0C157 
OOlSA 


001040 
001C50 
Cdl06C 
00107C 
OOIOWC 
0C1C9C 
CCllOC 
OClllC 

noiipc 

O0113C 
00114C 
001150 
00116C 
CC117C 
OOUi^O 
00119C 
001200 
00171C 
C012?0 
001230 
CC124C 
001253 
00126C 
00127C 
001260 
0C129C 
0C13CC 
CC171C 

ccn20 

001330 
001340 
CC13S0 
CC1360 
001370 
CC1?«C 
001390 
0C1400 
C0141C 
001420 
C0143C 
001440 
001450 
CC146C 
00147C 
0C1490 
001490 
001500 
00151C 
00152C 
CCl':3C 
0C154C 
C0155C 
0C15<^0 


C5 

FIILFR 

PIC  X(2t 

VALUS 

IS  SPACES. 

C5 

WS*FEOEflAL-TAX 

PIC  »'»«»9,99. 

05 

PIC  X(5| 

VALUE 

IS  SPACES. 

C5 

WS-TAX-PATf 

PIC  VZ9. 

05 

FILLER 

PIC  X(7I 

VALUE 

IS  •  X'. 

C5 

US-FICA-TAX 

PIC  «*»»9,99, 

05 

FILLFR 

PIC  X{3» 

VALUE 

IS  SPACES. 

C5 

WS-NFT-F4V 

PIC  *«»«9,99« 

C5 

FILLER 

oic  x(in 

VALU? 

IS  SPACES. 

01  ws- 

. lOTlNG-LINE, 

05 

FIILFB 

PlC  X(35l 

VALtIF 

IS  SPACES. 

C5 

FILLER 

PIC  X(31) 

VALUE 

IS 

•PEPARTfENT  TOTAL  FAMRM 

'  SIZE' 

C5 

WS-TCTAL-FAKILV-SIZE 

PIC  If), 

FILL'FP 

P|C  X(21l 

VALUE 

IS  •   AMi)  TITAL 

C5 

WS-TCTAL-NET-PAY 

PIC  ««»»9.99, 

C5 

FILLER 

PIC  X(34» 

VALUE 

IS  SPACES. 

PRCCFDURE  CIVISiON. 

CPEN  INPUT  FEPSCNNEL-HASTER-FILE 

OUTPUT  PRINTER, 
MQVF  WS-SWITCH-OFF  TO  WS-WASTER-FILE-FOF-i.  :  TCH. 
PERFORM  OOlC-REAC-ANO-FRINT  THRU  3010-EXIT 

UNTIL  WS-yASTER-PILE-EGF-SWlTCH  EQUAL  TO  WS-SHITCH-ON. 
CLOSE  PEPSCNNFL-MASTER-FILE 

POINTER. 
STnP  RLK, 
OCIO-READ-ANC-PPINT, 

fiEAr  PEPSC^l^EL-MASTER-FILE 
AT  £KD 

PERFORM  002Q-T0TALS-RTN  THRU  C020-EXIT 

HOVE  HS-SWITCH-CK  TO  WS-f ASTER-F I LE-EDF-SW ITCH 

GO  TO  OCIO-EXIT. 

IF  WS-CEFARTMENT-FCLC  ECU^L  TO  SPACES 
PFRFORK  CClU-t-EACING-RTN  THRU  0030-EXIT 

ELSF 

IF  Vl«-0£FAFT>'FNT-HCLC  NOT  ECUAL  TD  IMOl-DEPARTHENT 
PERFORM  OOPO-TOTALS-RTN  THRU  )0?0-EXIT 
PEFFCRM  0030-HEACING-PTN  THPi)  0030-EXIT. 
IP  IHOI-NUHPER-OEFENCENTS  ECLAL  TO  ZEROS 

MOVE  WS-3-DEPENDENTS-T4X-RATE  TO  US-TAX-RATE-HOLD 
ELSF 

IF  It'Ol-NLMRER-OEPENntMS  LESS  THAN  5 

MOVE  WS-l-4-CFFFKCEMTS-T*X-PATE  TP  MS-TAX-RATF-HOLO 
ELSE 
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00159  001570  TC  IMOl-NllM^FB-OEPENQf-NT S  LFSS  THAN  ^ 

CC16C  COl^fiO  fCVE  WS-'^-P-DEPFNOENTS-T/X-PATE  TO  WS-T4X-«4T5-HOL[) 

00161  C01^9C  £156 

00162  0016CO  IF  IH01-NII--PER-DEPENCFST S  LESS  THAN  13 

0OU3  CCl6ia  "OVE  WS-9-12-i:EPENDENTS-TAX-b:.TE  to  WS-TAX-tlATE-HOLD 

OOU^  CC1620  riSE 

00U5  C0U3C  WOVE  WS-B-sq-DEPCNCfcMS-TAX-fATE  TC 

00166  00164C  WS-TAX-QATE-HOLD. 

00167  001650  MULTIPLY  IMCl-KCNTHLV-PAV  PY  WS-TAX-RftTFr-HOLD 

00168  0C166C  RIVING  HS-FEDERAL-TAX-KLC. 

00169  301670  t^LTlPLY  IMCI-*»CNTHL Y-PAV  BY  W5-FICA-TAX-P ATE 
C017C  0C16PC  OIVINfi  KS-FIC A-TAX-HCLC. 

00171  001690  SUBTRACT  WS-F ICA-TAX-HOLO  kS-FcD£R AL-TAX-HOLO  FRQH 

00172  0017CC  IMOl-MCNTt-LV-PAY 

00173  0C1710  GIVING  WS-NET-PAY-I-CLD 

OOn*  00172C  DIVIDE  WS-NET-PAY-HOLC  PY  taS-FAM  ILY-S  Uc-HQLD 

00175  CC1730  GIVING  WS-PAV-AVERAGE, 

00176  CCn^C  MOVE  IMCl-SCC-SFC-KUf  TO  WS-SCC-SEC-NUM. 

00177  001750  H3VE  IfOl-NAME  TO  WS-NAME. 

0C178  00176G  HOVE  I fOl-»'CNTHLY-PAY  TO  WS-fCNTHL V-PAY. 

00179  001770  HOVE  If'Ol-NLMPER-DEPENOENTS  TC  hS-NUHpER-CEPENDENTS , 

OOIBO  001780  "DVE  WS-FEDER AL-TAX-HOLD  TO  HS-FcDtR AL-TAX, 

00181  CCnSC  HIVE  WS-TAX-RATE-HCLC  TC  WS-TAX-RATE, 

00182  001800  *fOVE  kS-FIC A-TAX-HCLC  TO  WS-FICA-TAX, 

00183  0C1813  HOVE  WS-KET-PAY-HCLD  TC  HS-KET-PAY. 

00184  001820  ADD  WS-NET-PAV-HniD  TO  WS-TnTAL-N?T-PAY-SUM, 

00U5  0C1B30  ADD  WS-FAHILY-SI 2E-HCLC  TO  WS-TaTAL-FAMRY-StZE-SUM, 

001P6  CC1P40  WRITE  CP 01-FRT  KTER-RCC  FRn>'  VS-PtTAIL-LlNE 

00187  OOinSO  AFTER  ADVANCI>4G  2  LINES. 

oolpe  ccie6C  coic-exit.  exit. 

00189  0C187C  C020-TOTALS-PTN, 

00190  001880  MOVE  HS-TOT  AL-FAMILV-SIZE-SlJf  TO  WS-TTTAt-FAMI  LY-SI  ?E. 
0C1911  0CIB90  "OVE  WS-TOTAL-NET-PAY-S'lt'  TC  WS-TOTAL-NcT-PAY. 

00192  0C1900  WRITE  OROl-FRFNTER-RCC  FRQ^  VS-FGOT ING-L INE 

0019^  0C191Q  AFTER  ADVANCING  3  LINES. 

OOm  001920  HOVE  ZEROS  '0  WS-TtlTIL-FAi'ILY-SIZF-SU'' 

001^5  001930  WS-TCT/L-KET-FAY-SU". 

00196  0C1S4C  C02C-EXIT.  EXIT. 

00197  0C1950  0030-HeAOI^G-RT^. 

0C19H  0C196C  HOVE  I MQl-DEPARTHENT  TC  WS-C£PARTHENT-HnLO. 

00199  0C1970  WRITE  0R01-FM>*TSR-RCD  pROH  WS-CCLUmn-HEADING 

00200  0C19R0  AFTER  ADVANCING  CI-ANl. 

00201  OC1990  Ca30-EXn,  EXIT. 


I 


,,.02-02-22 


292 


LVl 

SOtl(<CE  NAME 

BASE 

DISPL 

INTPNL  NAHE 

DEFINITION 

USAGE 

Ft. 

P£RSC^NEl-MASTEO-FILE 

OTF'Ol 

DNM«1-151 

DTFSD 

0! 

IMOl-FPR^CNNFL-'^ASTER-PCO 

BL»l 

000 

nNM3l-iq6 

DS 

OCLBO 

GROUP 

02 

l^'Ol'SnC-SEC-NU^ 

BL>1 

000 

0NM»i-234 

OS 

9C 

OISP 

02 

BL*l 

009 

ONM.l-260 

OS 

18C 

DISP 

0? 

IMOl-CEPARTf'ENT 

RL»l 

OIB 

ONM.1-279 

DS 

2C 

OISP 

0? 

FIILFP 

9L»l 

OlD 

DNH» 1-304 

DS 

5C 

DISP 

02 

IwGl-WIMBEP-OEPtNDENTS 

3L«l 

022 

DNH.l-320 

DS 

2C 

DISP-NH 

0? 

IM0l-FilNTHlV-.p4Y 

PL-l 

024 

DNM.1-352 

DS 

6C 

niSP-NM 

0? 

FILLER 

BL«l 

02A 

0NN«l-378 

DS 

38C 

OISP 

FD 

PRINTER 

OTF»0? 

DNH»l-397 

DTFPR 

01 

ORCI-PPINTER-RCC 

8L'2 

000 

0NM»l-42fl 

OS 

133C 

OISP 

77 

WS-MASTER-FILE-ECF-SWITCH 

RL»3 

OCO 

ONH» 1-454 

DS 

IC 

OISP 

77 

KS-T0TAL-FA*iaY-S17.E-SUM 

BL»3 

ODl 

DNM»2-0a0 

OS 

2P 

OOMP-1 

77 

WS-TOTAL-NFT-PAY-SU^ 

PL»3 

003 

0NM»2-034 

DS 

4P 

COMP-3 

77 

liS-DEFAPTKENT-^'Cli: 

fiL»3 

007 

nNMi?-067 

DS 

2C 

DISP 

77 

HS-FECERAL-TAX-HOLO 

6L«3 

009 

OM'^'2-095 

DS 

4? 

OOHP-3 

77 

WS-FICA-TAX-^CLD 

8L«3 

COD 

CiNM»2-124 

DS 

4P 

COMP-3 

77 

US-NET-PAY-mOlO 

BL»3 

on 

DN««2-153 

DS 

4P 

OQMP-S 

nKM»2-l7P 

77 

^S-FAKILY-SIZE-HOLO 

Bl»3 

015 

DNM»2-178 

DS 

2P 

COHP-! 

0NH»2-7C7 

77 

US-TAX-RATF-hCLC 

RL»3 

017 

riNM»2-207 

OS 

2P 

COMP-3 

77 

WS-FirA*TAX-RATc 

BL»3 

019 

DNM»2-233 

DS 

2P 

COMP-3 

77 

liS-C-CEPENrFNTS-TAX-RAT£ 

BL«3 

oin 

DNM«2-259 

DS 

2P 

COMP-3 

77 

WS-1-4-0EPEN0ENTS-TAX-PAT6 

RL-3 

OlD 

DNM.2-203 

DS 

2P 

COHP-3 

ONM«2*32^ 

77 

WS-5-8-r£PEN0ENTS-TAX-PATF 

BL«3 

OIF 

0NH»2-329 

PS 

2P 

COMP-3 

77 

^S-q.l2-DEPEKCEKTS-T/X*RATE 

RL»3 

021 

DNM»?-365 

DS 

2P 

OOMP-3 

77 

WS-l3-99-CEPENCf NTS-TAX-RATE 

BL«3 

023 

DN^»2-402 

DS 

2P 

COKP-3 

77 

k»S-S*iITr.M-ON 

BL»3 

025 

DNH»2-440 

DS 

IC 

DISP 

77 

kS-SWiTCH-OFF 

BL«3 

026 

DNf'2-462 

PS 

IC 

OISP  . 

01 

WS-^CQlUHN-hEADINC 

eL»3 

028 

DNM.3-000 

DS 

OCL122 

GPOUP 

0NH«VC3C 

02 

FILLER 

flL»3 

028 

DNH«3-a30 

CS 

14C 

DISP 

Dl^*'«3'-C4^ 

02 

FILLER 

BL»3 

036 

0N>1«  3-049 

OS 

lec 

DISP 

C? 

FllLEF 

RL-S 

048 

0N^» 3-068 

DS 

15C 

DISP 

DNM«3-CB7 

0? 

FILLER 

eL»3 

057 

0NH»3-08'' 

DS 

13C 

OISP 

02 

^ItlEP 

BL"3 

064 

ON'^' 3-1^6 

DS 

uc 

DISP 

DK'M>1-125 

02 

FILLER 

PL»3 

OftF 

DNH«3-125 

CS 

IOC 

DISP 

02 

PILLER 

BL»3 

079 

DNH»3-144 

DS 

lie 

OISP 

DNHs1*163 

02 

FILLER 

RL"! 

084 

DN'4»3-163 

DS 

no 

DISP 

02 

FILLER 

BL»3 

08P 

DN'(»3-IB2 

OS 

19C 

OISP 

01 

^S-DETATL*LINE 

RL»3 

OAR 

DNM« 3-201 

DS 

0CL133 

GROUP 

l.li"^"        S  ••  k 

07 

FILLER 

BL»3 

OAR 

0NM«3-23l 

DS 

lie 

DISP 

nNMv3«250 

0? 

WS-SOC-SEC-NilM 

BL«3 

0R1 

DNHM-250 

DS 

9C 

OISP 

nNMiV274 

02 

FILLER 

RL»3 

OBC 

DNMa3-274 

CS 

5C      . , 

OISP 

DKM»  3-293 

02 

WS-NAKF 

BL»3 

OCl 

CS 

ISC 

OISP 

0? 

FILLER 

RL«3 

003 

0N««3-310 

DS 

6C 

OISP 

0? 

WS-MCNTHLV-PAV 

Bl-3 

309 

DNH.3-329 

DS 

8C 

NM-EDIT 

o^^■3-3ft4 

02 

FILLER 

BL«3 

OEl 

ONM" 3-364 

PS 

6C 

OISP 

0KM-3-3B? 

02 

kS-NUMBFU-CEPENCENTS 

BL«3 

0E7 

DNrt«3-383 

DS 

2C 

NM-EOIT 

07 

FILLER 

RL«3 

0E9 

0NH»3-420 

CS 

60 

OISP 

0? 

kS-PAY-AVERAGE 

SL»3 

JEF 

DNM*3-439 

DS 

80 

NM-EOIT 

07 

FIILER 

8L«3 

OFT 

ONHi'3-474 

DS 

20 

DISP 

I 
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H?MO«\  MAP 


TAf  t  V 

^nOT  ffltP  ^!7C 

no  iL  iccD 

COOT  OCT 

our*  1  nti 

r  <  A 

•1  n  C  A  Q 

jllr  I  r  Its  Jl  tt 

cncT  iinftc  cTfc 

r\*  1  •VD  1  r<L 

uUCC  •! 

jUP 1  An  ALLnCgJ 

utcrc 

or.k  in 

rlir  I'J 

uv>«ru 

Af  IV'  TT1 1 

'J  L  "  r  c 

vUrr^ 

f  f 

s*L  1  LI 

PI  rpi  1  c 

ftTTPA 

nTCApo  rci  1  € 

pnin 

uu  flo 

i.  w  If  n 

TCMD  CTODArC-l 

rrTifl 
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It'"  9  M  rHuC  *! 

\f  1 1 

fli  1    rCk  1  C 
DLL  CclLd 

U  J/59 

til  r  rci  1  c 

bC  I.L 

UU  /  .'L 

uU  1 

CiiD  atd  rci  '4  c 

mar 

tjNCTL  CclLd 

VN  CELLS 

CC750 

SAVE  ARFA  •? 

037SC 

ySASh  CELLS 

OC75C 

XSA  CEILS 

001!C 
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O075C 
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0075C 
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CC75C 
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IA-02-02-22 


ERIC 


294 


P6T 


0C76a 


ovFPPLO«  ceus 

VIRTUAL  CPUS 
PRPCfOUPE  NA^'5  CELLS 
GEKeRATEP  M-E  CELLS 
SUPCTF  iODPfSS  fCLLS 
VNI  CELLS 
tlTFRHS 

OISPLAv  LITERALS 


CC76fl 

CC76C 
CC7P« 
CC7C« 
OCIC^ 
CC7C0 
CC8C0 


RFGISTER  ASSIGK'NENT 


RFG  6 
PEG  7 
PEG  « 


PL  "3 
flL  •! 
HL  «? 


133 


135 
136 


0  1  nr.  1 

nnopnr 

wwunu  L 

1 

1    1  ff^f  A  1^1 

nTt«  1 

on 

1  .ftO/LI  A*  1  51 
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1  fT4^A 
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LA 
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CCCflU 

18  40 

LR 

4,0 

0C08If 

FO 

RALR 

15.0 

oooeiR 

50  00  F  CCB 

ST 

a,oo<*(o,i5i 

0CC«1C 

00  F  OOC 

HAL 

0.030(0,15) 

30082C 

OOCOOOOO 

OC 

X'OOOOOOOO' 

00CA2A 

04  0? 

SVC 

2 

0CC82t 

41  10  C  0>>8 

LA 

lf088(0«12l 

LITt32 

3CC824 

58  00  r  ICC 

L 

0ilCC(0tI31 

0TF»2 

0C062E 

18  40 

LR 

4«0 

nOOP30 

07  00 

8CR 

CO 

300832 

C5  FO 

RALP 

15,0 

O0Cfl3« 

50  00  P  CCP 

ST 

0.00S(0»15) 

10083? 

45  00  P  OOC 

BAl 

0,000(0,15) 

occe3C 

CCCOOOOO 

OC 

X«OC000300» 

JCC840 

OA  02 

'■1VC 

2 

000842 

50  20  D  ICO 

ST 

2flC0(0,13) 

BL  »2 

01C846 

58  80  D  ICO 

L 

8,lC0(0a3) 

BL  -2 

3C084A 

D2  00  6  CCO  f 

026 

MVC 

000(1,61.026(61 

DNM»l-454 

000P50 

58  00  0  ?Cft 

L 

0,208(0,  13) 

VN»01 

0CCP5A 

50  00  C  1F4 

ST 

0,1F4(0,1}) 

PSV»l 

000856 

58  00  C  OIC 

L 

0,010(0,121 

GN»01 

fJCCPSC 

50  00  C  ?CB 

ST 

0,208(0,  13) 

VN»01 

OCCBfrC 

EQU 

* 

0CCR6C 

58  20  C  020 

L 

2.070(0,12) 

r,N'02 

OCOEM 

D5  00  6  COO  ^ 

025 

CLC 

003(1,6), 025(61 

DNM« 1-454 

OOOflM 

07  P2 

SCR 

8.2 

0CC86C 

58  10  C  034 

L 

1.004(0,12) 

PN>01 

DN''«2-462 


DN«-2-*40 
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u 


000O04 

07 

Fl 

HC» 

15,1 

OCOSDf 

rN«ou 

ECU 

« 

• 

F2 

71 

D 

IOC 

7 

022 

PACK 

100(8,131  , 02212  , 7» 

TS'Ol 

DNM»l-320 

0CC10C 

F9 

10 

0 

106 

C 

CP 

1061?, 13», 06911, 121 

TS»07 

LIT*! 

000OE2 

5«» 

=0 

C 

04C 

L 

15,04C(0,12» 

GN»013 

OCOSEt 

C7 

AF 

f\Ci^ 

10,15 

IS7 

0CCOE« 

FO 

71 

D 

IDC 

010 

ZAP 

10019, 131, 010(2, 6» 

TS»01 

PNM.2-293 

3CCQFE 

Fl 

76 

D 

IDO 

c 

100 

MVfl 

1DO(B,13),100(7,13) 

TS-Ol 

TS=01 

F8 

11 

A 

017 

D 

ZAP 

017(2,61,106(2,13) 

0NHa:-2O7 

TS=C7 

15<> 

Qmn 

3C09FE 

5R 
07 

10 

n 

C 

048 

L 

RC^ 

1,048(0,121 
15,1 

r.N>012 

150 

OCCAOC 

GN«013 

EOU 

• 

OCOAOO 

F2 

71 

0 

IDC 

7 

022 

PACK 

100(8, 13K022(2, 71 

TS=01 

PNH« 1-320 

000A06 

F«? 

10 

0 

106 

C 

06A 

CP 

10M2,13),06Ml,12l 

TS»07 

LIT+2 

3C0A0C 

5« 

FO 

C 

050 

L 

15,053(0,  12) 

'■.N«014 

OOCAIC 

07 

AF 

BCS 

10,15 

160 

O0OA12 

F« 

71 

n 

ICC 

6 

OIF 

7A0 

inO(B,13l,01F(2,6) 

TS«01 

nNH«2-329 

COCA  18 

Fl 

7<> 

0 

100 

3 

100 

MVP 

100(8, 13), 100(7, 13) 

TS»01 

TS«01 

3C0A1E 

F8 

U 

6 

017 

D 

106 

ZAP 

017(2, 6), 106(2, 13) 

DHM.2-207 

TS»07 

COCA  24 
O0OA28 

58 
07 

IC 
Fl 

C 

048 

L 

BCR 

1,048(0,121 
15,1 

GN»012 

162 

00CA2A 

GN=014 

EOU 

* 

C0CA2A 

F2 

71 

0 

IDC 

7 

0?2 

PACK 

100(8, 13), 022(2, 7) 

TS'Ol 

DN"«l-320 

O00A3O 

F9 

11 

D 

106 

C 

06H 

CP 

106(2, 13), 068(2, 12) 

TS-07 

UT*3 

OOOA36 

58 

FO 

C 

054 

L 

15,054(0,12) 

GN»015 

000A3A 

C7 

AF 

BCR 

10,15 

163 

000A3C 

F8 

71 

D 

mc 

6 

021 

ZAP 

110(9, 13), 021(2, M 

TS»Ol 

DNH.2-365 

10CA42 

Fl 

76 

0 

100 

D 

100 

MVQ 

li:0(8,13),100(7,13) 

TS«G1 

TS-01 

.30CA4e 

Ffl 

11 

6 

017 

ID6 

ZAP 

017(2, 6), 106(2, 13) 

0NK«2-207 

TS»07 

165 

O00A'«E 
30OA52 

5fl 
07 

10 
Fl 

C 

C4R 

L 

BCR 

1,049(0,12) 
IM 

GN«012 

165 

0C0A54 

PN-015 

EOU 

* 

Q00A54 

F8 

71 

0 

IDC 

6 

023 

ZAP 

103(8,13), 023(2,6) 

TS»01 

DNM»2-402 

000A5A 

Fl 

76 

0 

ICO 

D 

ICO 

MV1 

100(8,11), 100(7,13) 

TS»01 

TS»01 

000A60 

F8 

11 

i 

C17 

0 

106 

ZAO 

017(2,6), 106(2, 131 

ONM-2-207 

TS«07 

167 

000A66 

GN»012 

* 

aOOA66 

F7 

75 

0 

IDC 

7 

024 

PACK 

100(8, 13), 024(6, 7) 

TS»01 

DNH-l-352 

■300A6C 

FC 

51 

0 

1D2 

6 

017 

"P 

102(6,13), 017(2, 6) 

TS»03 

DNM.2-207 

O0C47Z 

Fl 

76 

D 

100 

0 

100 

•^vn 

100(8, 13), 100(7, 13) 

TS=01 

TS"01 

300A7a 

Fl 

76 

D 

IDO 

D 

133 

MVO 

1[:0(8,13),1D3(7,13) 

TS«G1 

TS«01 

O0OA7E 

Ffl 

33 

6 

C09 

0 

1C4 

ZAP 

009(4,6), 104(4,  n) 

0NMa2-95 

TS«05 

000Ae4 

94 

OF 

6 

CC9 

NI 

009(61, X'OF' 

ONM-2-95 

169 

oooAse 

F2 

75 

D 

IDC 

7 

024 

BACK 

100(8,13), 024(6, 7) 

TS«G1 

DNH.1-352 

OOOARE 

FC 

51 

D 

1D2 

t 

Olo 

•'P 

102(6,13), 019(2, 6) 

TS»G3 

DNHi2-233 

000A94 

Fl 

75 

0 

100 

0 

ICO 

^4vn 

100(8,131,100(6,13) 

TS»01 

TS-Gl 

00CA4A 

FR 

13 

6 

OOC 

C 

IC4 

ZAP 

030(4,6), 104(4, 13) 

0NH»Z-124 

TS'05 

171 

300AAC 

Fe 

73 

0 

IDC 

6 

000 

ZAP 

1CO(8,13),003(4,6) 

TS'Ol 

0NM«2-124 

000AA6 

FA 

33 

C 

104 

6 

0C9 

AP 

104(4. n), 009(4,6) 

TS«05 

0NM«?-95 

OOOAAC 

F2 

75 

D 

158 

7 

024 

PACK 

108(8, 13), 024(6, 7} 

TS»09 

DNH»l-352 

GC0AB2 

Ffl 

33 

C 

ICC 

D 

104 

SP 

10C(4, 13), 104(4,13) 

TS»013 

TS«05 

OOCABfl 

Ffl 

33 

6 

Oil 

0 

ICC 

ZAP 

011(4,61, 1DC(4,13) 

0NM»2-150 

TS'On 

GOGABE 

94 

OF 

6 

Oil 

NI 

011(6), X'OF' 

DNM-2-153 

m 

G0GAC2 

F8 

7? 

0 

IDS 

6 

Cll 

ZAP 

108(8, 13), 011(4, 6) 

TS=09 

0NM«2-150 

IA-t)2.02-22 

9 

296 

ERJC 


12 


OOOACft 

Ffl  51  0 

UA  6  015 

OP 

10A(6,t3t,31S(2f6) 

TS-011 

DNH-2-178 

OOOACE 

F8  73  n 

108  0  ICA 

ZAP 

108(3, nM0A|4, 13) 

TS«09 

TS"01I 

0OOAD4 

02  0<)  0 

lEO  C  060 

MVC 

lEOnOilBI, 060(121 

TS2-1 

OOOACA 

41  10  D 

1E6 

LA 

l«lE6(3a3l 

TSZ»7 

3CCA0E 

HF  Qo  0 

lEO  D  nc 

SOMK 

lEOI10a3).lDCIl'i) 

TS2M 

TS"013 

OOOAEA 

C6  10 

PCTR 

liO 

CCOAEf 

92  "iR  1 

ceo 

m 

ooon>iX'5&' 

OODAEA 

02  07  6 

OEF  D  lEZ 

"VC 

0eF(Rf5l,lE2(13l 

TS2»3 

176 

OOOAFO 

02  08  6 

083  7  000 

HVC 

0S3(9f6l. 000(7) 

DNM.3-250 

DNM« 1-234 

177 

0COAF6 

t2  11  6 

OCl  7  CC9 

MVC 

0C1(1B,6)«009(7I 

DNM«3-2')3 

DNH«  1-260 

178 

JCOAFC 

F2  75  D 

108  7  024 

PACK 

lDn(Ril3li024(6i7l 

TS"09 

DNM« 1-352 

0CCRC2 

02  09  D 

lEO  C  060 

HVC 

lE0(10a3),060(12l 

TS2»l 

LIT^S 

0OORC8 

41  10  D 

1E6 

LA 

iaE6(0,13l 

TS?»7 

OOOROC 

OF  09  D 

lEO  D  IOC 

EDMK  ■ 

1S0(10,13M0C(13I 

TS2»l 

TS«013 

OOORl? 

06  10 

RCTR 

ItO 

30CRU 

92  5P  1 

ceo 

MVI 

000(HiX'5R' 

OOOPie 

02  07  6 

009  0  IE? 

MVC 

0D9(S6ME2(13I 

0NM«3-3?9 

TS2«3 

179 

OOOftlE 

F2  71  D 

1D6  7  022 

PACK 

108(dtl3li3?2(2i7l 

TS»0«' 

DNM«l-320 

000^24 

n2  03  0 

lEC  C  017 

MVC 

lEO(4.13t, 077(12) 

TS2»1 

LIT*15 

3CCPPA 

l)E  03  0 

lEO  C  lOE 

EO 

lE0(4fl3),10E(13) 

TS?»l 

TS«015 

mm 

D2  01  6 

CF7  n  162 

"VC 

0E7(2.6),1F2(13) 

0NH«3-383 

TS2-3 

tic 

0CCB16 

02  09  D 

lEO  C  060 

HVC 

lE0(13a3lt060(  12l 

TS2-1 

300B1C 

41  10  D 

1E6 

LA 

1,1E6(0,13) 

TS2«7 

000P40 

OP  09  n 

lEC  £  CC9 

EOSK 

lE0(13,nit009(6) 

TS2«l 

.DNM«2-95 

3C0R46 

C6  10 

BCTR 

l.O 

O0OB48 

92  59  1 

000 

MVI 

OOOIUtX'SRi 

02  07  f 

QF9  0  1E2 

HVC 

0F9(8t6)«lE2(13) 

TS2»3 

mi 

30CPi2 

F8  71  D 

108  t  017 

ZAp- 

1D8(8,13),017(2,6) 

DNM»2-207 

3CC"?5fi 

07  05  0 

ICS  2  ICS 

XC 

ins(6il3), 108(131 

TS«0<J 

TS»09 

300PSE 

94  OP  0 

IDE 

NI 

10E(ni,X«0F' 

TS«09*6 

000P62 

02  03  0 

lEC  C  07B 

HVC 

1E0(4,13I,07P(12) 

TS2»l 

LI7+19 

OCCPA'* 

DE  3?  0 

lEO  C  lOF 

EO 

1E0(4,13I,10E(13) 

TS2«1 

TS»015 

3C0B6E 

02  01  6 

1C6  0  1?? 

MVC 

106(2,6)ilE2(13) 

TS2»3 

1(12 

OOOPT* 

02  09  0 

lEO  C  C60 

MVC 

lE0(13a3)f060(12l 

TS2»l 

LITE'S 

0CCR7A 

41  10  n 

1E6 

LA 

lilE6(0a3) 

TS2«7 

000P7P 

OF  09  C 

lEc  6  oon 

EOHK 

lE0(10,n)i00D(6) 

TS2»1 

0NM»2-124 

0C0OP4 

C6  10 

RCTR 

liO 

300Bi>6 

92  5B  1 

ceo 

MVI 

000(l),Xi5B> 

OrOPflA 

02  37  6 

19F  0  1E2 

HVC 

10F(8,6I,1E2(13I 

TS2<3 

163 

lOOPOC 

02  39  D 

lEO  C  0^0 

MVC 

lE0(10a3)i060(12) 

TS2«1 

LITfS 

00CR<;6 

41  10  C 

1E6 

LA 

1.1E6(0,13) 

TS2»7 

000P9A 

OF  09  D 

lEC  6  Oil 

EOHK 

lE0(10a))t011(6l 

TS2-1 

DNM»2*H0 

000PA3 

06  10 

BCTR 

1.0 

irCBA? 

02  5P  1 

ceo 

MVI 

000(1), X«5P' 

300PA6 

02  07  f 

llA  0  1E2 

MVC 

llA(a,6iaE2(l3) 

DNM*4-IS0 

TS2-3 

184 

OOORAC 

FA  33  6 

003  6  Oil 

AP 

003(4f^)t011(4t6l 

DNM»2*150 

185 

300RR2 

FA  11  6 

001  6  015 

tP 

001(2i6}t015(2t6l 

ONM.2-0 

0NH«2*178 

W 

3C0flPB 

02  04  R 

OOC  6  OAS 

MVC 

000(I33t?)tOAR(6) 

DNM-l-428 

DNM«3-20l 

OOGPRE 

5R  10  C 

ICC 

L 

1,1CCI0«13) 

0TFm2 

OOOPC? 

92  FC  9 

CCO 

MVI 

OOOnifX'FO' 

0NM»M28 

3CCPC6 

5«  FO  1 

010 

L 

l^tOlOiOill 

COOPCA 

45  EO  F 

C3C 

PAL 

l4«00Ct3tl5) 

OOOBCE 

50  20  D 

ICO 

ST  . 

29lCOI0fl3t 

BL  "2 

IA-024)2-22 

er|c  .  ^J7 


CPCSS-PtctftEMCF  CICTIQNARY 


DE«=N 

REFERENCE 

PEPSCNNfl-HASTEil-flLE 

C0C12 

OOIH 

00113 

00138 

0014? 

00142 

inci-soc-sec-NUN 

CC021 

CC176 

HOI-NAME 

CC02; 

CC177 

IKCl-OEPARTMENT 

00023 

CCISC 

1019R 

IHOl-NUMflPR-DFPENOfNTS 

0C02'i 

0U1S3 

0015h 

00159 

00162 

00179 

IJ'Ol-CCNTMLY.PAV 

CCQ26 

CCI67 

00169 

00171 

0017R 

PRINTCft 

00014 

00133 

)0133 

0013R 

00186 

0019? 

OROI-PRINTER-RCO 

CCC30 

CC1A6 

001B6 

00186 

00192 

00192 

00199 

00199 

HS-HASTtP-FILE-eCF-ShlTCH 

C0C32 

0C135 

0C136 

00145 

WS-TCTAL-FAWILY-SIZE-SUH 

CC033 

CClf  5 

eci9o 

00194 

WS-T0TAL-MET-PAY-5IJ»» 

00035 

001B4 

0C191 

30194 

W-0EPA-7HENT-I-0L3 

CCC37 

0C147 

)0147 

00147 

00150 

00191) 

MS-FEOE^  AL-TAX-HCLi"; 

00039 

C0167 

10167 

00171 

OOiflO 

WS-FICA-TAX-HCLO 

OOOU 

0C169 

10171 

001B2 

WS.-NET-PAY-HCLC 

000^3 

CC171 

00171 

00174 

00183 

00184 

WS-F4fIlY-SlZE-HCLD 

C004S 

CC174 

001B5 

WS-TAX-RATE-HOLD 

CC047 

C0154 

0C157 

OO160 

00163 

0J165 

fcS-FICA-TAX-RATE 

00049 

00160 

WS-O-OFPENOFNTS-TiX-RATE 

C0052 

CC194 

WS-l-«-OEPENCENTS-TAX-PATE 

C0055 

0C1S7 

MS-5-a-0EP£N0EKTJ-TAX-RATE 

C005B 

C0160 

WS-9-l2-CJ:PENDEN7S-TAX-RATE 

CCG61 

C0163 

MS-13-99-CEPENCEMS-TAX-PATE 

00064 

00165 

kS-S»iITCH-CN 

0CC67 

00136 

00145 

W-SHITCH-CFF 

00C69 

CC135 

WS-CClUHN-hEAOINC 

0CC71 

CCi9S 

00199 

• 

HS-DETAIl-LUi: 

CCC90 

CC186 

J01B6 

hS-SCC-SEC-NUX 

000Q3 

CC176 

US-MAME 

CCC^6 

CC177 

WS-KONTHLY-PAt 

CCC<19 

0017l> 

«-NUH8ER-DEPEN0EKTS 

00102 

CC17<) 

HS-PAV-AVERAGE 

GC105 

ocn4 

hS-FEOEPAL-TAX 

00108 

CC18C 

W-TAX-PATE 

coin 

00181 

WS-FICA-TAX 

00114 

CC182 

WS-NET-PAV 

coin 

0C183 

W-FOnilNG-LINE 

CC120 

CC192 

)0197 

HS-TCTAL-FAMHY-SIZE 

00126 

0C190 

HS-TOTAl -NET-PAY 

00129 

0CI91 

PROCEDUPE  KAKES 

DEFN 

SEFERENCE 

OOlO-READ-ANC-PRINT 

00141 

00136 

OOIO-EXIT 

COIRS 

001^6  00146 

OC?0-TnTALS-RTN 

00189 

CC144  )0151 

0020-EXIT 

C0196 

CC144  00151 

M.02-tE-22 


ERIC 


u 


298 


?(>/0P/7R     PHASE    5tFP,-AD    LCCCPb    HlCPftE    CSK-*C     ESn  TYP5  LAB6L  L040ED  P.EL-FR 

CC^OOO    OCHOCO    00^213    ?E  12  ^    CS£CT  CU^popE  005000  OOSOOO 

CS«CT  IJGFIEWZ  005t28  O05E2« 

•  FNTRY  IJGFIZ^?  005628 

•  FMHV  IJGFIZZZ  005E2B 

•  ENTRY  IJRPIEZZ  005E2H 

CSECT  ILPDSAEO  OOftODO  uO60DO 

ENTRY  ILPOSAEl  0060FO 

CSECT  IJDFAPIZ  005D10  005D10 

»    ENTRY  IJDFAZIZ  005D10 


•  HNRIFtPFNCEC  SYKRCLS 

002  tlM»ESCLVEC  *nC<*eSS  CftKSTANTS 


CSECT         ILBD«NSO    00<>OCfl  0060C8 

^XTP.^^  STXITPSW 
WXTRN  ILfiOD3G2 


IA-02-02-22 


ERIC 


NAME  MONTHLY  PAY  NO  OF  DEPS  PAY  AVE     FED  TAX     FICA  TAX  NET-PAY 


IA-II2-02-22 


13 


OSOII  PFnr,R»ii  ^HPfK  tMTERPIIPTICN  -  KX  LCCATICN  005AC8  -  CGM^tTlQN  COOS  2  -  DATA  EXCEPTION 
OSCOI  JCP  CU'PPE?  CANfElEi 


nijWE?  2P/C£/7d  22t«6.02 

r,»  0-7  0C03SC«?  CCC05AA*.  COOC?<»CC  CC005000  CC0052RP  "iOOOSCCE  OOOOSOEfl  000053DR 
r.P  E-c  CCCC'ACC  CCfOSCE  3CCC50C0  OOCCSOOO  CCCCfi76P  0000554R  P0D05C7«  00005A54 
CPMPEG   Pf.  AHCB  IS  CD03fH 


3CCCC0 
000020 
0CCC4C 
000060 
OCOCPQ 
OOOOAO 
000OC1 

occoso 

003103 
OC0120 
OCOUC 
003lf-3 

ocoi«c 

0C01A3 

oooiro 

OCOIFC 
000200 
3C0223 
0C02A0 
OC0260 
0CC2PC 
3002A0 
0C02C0 
0C02E3 
000300 
030320 
0C33A9 
OC0^60 
OCO380 
0C03AC 
a003CG 
OCO3E0 
CC040C 
0C0A7a 
9C0A43 
0004(0 
0004DO 

ncoac 

0004C3 
0004= c 
3C0^CC 
3C0!'C 
0C0549 
OC0560 
O  05PG 

ERIC 


occccccc 

FFOSCCOC 
0C0Clf5C 
0C040CCC 

457CC149 
061CCftB3 
oi?3AC0C 
47P0011C 
A14AC<4P 
ACCl«57C 

fio?':D2ia 

02CA9120 
42A00397 
O5flSA7F0 
471CCPC6 
45<»302CA 
(>20CCC20 
<il03l»77B 
02S«0207 
<6C1CC3B 
0003flFA8 
CCCC3(CC 
0?EAeA70 
A770034C 
P0205CftC 
P200O5PA 
P01C47F0 

2BAC7ECC 
000C3646 
01001B04 
0C001A74 
GC0CC300 
cppf02nP 
•iBPOACCA 
02P'"'C69 
CA7FP77A 
07F95000 
P2CC35B5 
lPfl7ltTP 
CS0A477C 
40f00ff>2 
SBPCO'C* 
OfPiP^iSC 


CCC3C000 
400041?  P^ 

cccooooo 

CC0376F4 
C'>C2CBP6 
«4CFC393 
C^tOO^BO 
*7nOCEC 
qC4A000 
C778<)4Fq 

CC9AC7Cfl 
9010J2ce 
P77A47B0 
<HAnft48 
C1CC0200 
C20702C8 
4400A004 
C704DfrAft 
A77Q0178 
C2SaBA<Jfl 
P2C0003B 
<;0C38P94 
CCC04000 
CCCP47F0 
12774740 
F020S8B0 
05P99PfB 
C340C000 
C7C'!F?4C 
0C(>337C9 
CCC00014 
3f04f000 
CCCOCOOO 
CCC04500 
47F00<IC 
cCC8«0?r 
C5A04590 
C21PPiC8 
PAPC4PF0 
C59A9P78 
•iF7005BC 
C5729140 
«P<»035CC 
!E 70 8024 
C3!)"I!P* 


00C04C(SA 

FF15C007 

0000l''2fl 

GCC4COO0 

CCOOCCOO 

4lA0C«i5B 

O^ROCftPC 

9260A001 

4780C11C 

703RC701 

42P0C0ES 

02C79308 

C1PF9'P5 

D200«e9 

05P9C5B8 

9CCB4PA0 

5P90A004 

91E0E77A 

9^030093 

9P90eAA0 

CCfl5C40 

0C0370PP 

^(•0?C'iOO 

O2FFF870 

0?401B6ft 

05Cei«67 

CiACCF? 

F2F861F0 

CC01C7FF 

37rC39nl 

lP6C199f 

CC300300 

OCOCCOOO 

CC00C5A0 

47FCC646 

9BPEC2PB 

04FC9?ft9 

C29850CC 

0222C207 

0C5C5O70 

91B0A000 

05HAC719 

Ifi^lSFftC 

5C7CP324 


CC0304^B 

f:cc5ace 
ccccgooo 

C0002392 
CCCCO0O3 
4?70ei''0 
41PB0317 
<!5F2iOO? 
9203CCRF 
705P7C58 
5«e002P8 

accccfeeo 

C6ARCCC7 
03S79S40 
45O002CA 
03C2nAA 
<;flCB902C 
47800?f2 
478C017'» 
fl?000298 
(tl'=04044 
0303AE70 
C5PQ0??* 
CCCeiF78 
447CC'iP0 
5E608020 
lBff43fiO 
FP61F7F9 
0C006213 
3Q923A5C 
1A2C1A4C 
03f>PlC80 
CCCCCCCO 
CCC03F3B 
4M033C? 
9Cf.9C5A0 
O5A095FF 
BiE44BeO 
BAS8E030 
PA2447C0 
47fl00;iF 
508005PC 
902453^0 
o?4005?A 
<iCirfC70 


CCOCOODO  3030036B  PFOSOJOO  00000000 
5R5RC?r5  D^DinCl  FF150130  POOOSOCZ 
^6P833)0  0?6E?<JFC  00340300  OF0023D2 
CCOOOO)0  OO0011E4  00340030  0J039f>A4 

CCCJCCO^  000306PC  C6BC0A«  41BBC07^ 

18484190  0l7«^41fl0  C1A347F0  OODC06ftO 

4l9B0fl50  4570014A  41ft001Tfl  9640AQ01 

4780«'4«»A  <55C1A002  4780R4RA  S561A00? 
S2R1A0)0  4BA303C?  487A0604  49A003Dfr 

S283A000  QfiROAOOl  44000REA  07B8947F 
qeOAOOO  07175890  A00448B0  02225000 

AC0C07F7  45709150  0237RA32  BA3(J5BE0 

H12W^  IPAAODOfl  BA32000C  43A1C009 

05B94740  31CC9S60  05B94790  0lCf9240 
47FCCf62  SB90A0C4  4220A000  9140A001 
C604D201  0016AOOO  98989013  82000298 
C1020021  4780021C  9200058A  989F0298 
9120P77A  47100254  9130«B6A  4710C254 
47FO0?^2  02073298  BAC09990  RAC88200 
S6RGA0)0  41100030  47F0BFRE  96030039 
FCCCOOOO  00000000  PFO50133.  A0004fl02 
CC034CRC  PJOOIOAE  00001330  00002000 
C7ft9906fl  05A09a78  0C505970  BA244700 
lf871C78  5E700SRC  5080058C  913005BA 
5n6305P4  406005fl0  S88305CC  18675560 
5C6C802O  5B8005C4  5E708020  53708023 
C;BA*ie6C  C0025ftP6  C5CO?E70  P01C5070 
';CGC5000  00030000  00000030  00000300 
00C06213  OOOOOOlO  0003FFPF  0AF04E80 

•  tt  Ot  t^t • • • 

t ttFKei  •••• ttBfti 

•  0^ •••••« «•••  •• 

tttottt««t«tttt« 

•  OttKttttt*t*H«« 

••••tt«  • 

•*••  *•••••••••" 

_  ( 

••iOt  ••28/08/78 

H703C74  3C78^8F2  FflF0F3F7  P8F2F4F0 
U!CC0?O  378C3010  5fi58C236  000^0007 
CC000^F4  00000000  0OG3^E7C  OC000044 
CCCC0300  03000000  00033330  00000000 
CCCCOCCC  OOCOOOOO  92380223  909FC29ft 
9588A000  47800468  9180A300  4710C47A 
4'i9C04£C  98f'935A0  07^9901  AOOOQSBE 
A00FC7PQ  91A0977A  47fl004C2  9643fl77A 
C722C207  PACOEOOQ  94Pi3RACl  98Bf02R8 
5PF002C4  94F0BAS9  D21RflA40  C29B07C9 
04FA8A7C  300R4'7F0  04FERR70  03081F7R 
S5FFAC0F  47P0051E  020005R8  058A9130 

•  ••••••••"•••••• 

•*••• •••^^BO^^t^ 

12774740  0'i6ClR65  4A7305^2  5D60C5P4 
PC24SePC  0?Cai867  5F63R324  50608024 
508305BC  1R664360 
IA-02-02-2214         9240051A  07F90000 

302 

•  ••[)••••£«•••  it 

••• ••H^»» "••(*•• 
•9ii^ •••£••••• •' 

9 

?5/Ce/78 


PACE  11 


0043AC 

00A3EC 

304420 
004440 
00446( 
OC4460 
004SOC 

oc4;?a 

0C4S40 
0C456C 
004580 
0045AC 
0C4760 
004700 

mKt 

LBLTVP 
— «G~ 
004FAO 
004FCC 
004FEC 

CGSCro 

0C5020 
005C40 
00S060 
OC5080 
0O50AC 
OC50C0 
G050F0 
C051CQ 
005120 
005140 
005160 
0051 8 C 
0C51AC 
005  ICC 
0051EC 
005200 
005220 
005240 
005260 
00S2R0 
0052AO 
0052CC 
0C52EC 
005300 
0C532C 
005340 
005360 
0C5380 
OC53AO 
0053rC 


3C03A06C 
3C7C3C74 
U5C0070 
00004444 

oco::ccc 

OCOOCOOG 

cccccccc 

(CCOCCOC 
C309FC0C 
C402F113 
C402F514 
E3D7PI18 
E307F«lfl 
CCCCCCOC 
5P5BC2C4 
40404040 
4C4C4C4C 


C000r030 
?C7<t3BF? 

37RC0C30 
CCQCOOO 
CCCCCOOO 

ccoocooo 
cccoocoo 

-SA'-f-- 

CCICOOOF 
1131131F 
0140140= 

iieueiF 

'ilPSlP'iF 
"SAMf" 
F404?7C2 
-SAME- 

4C4C4040 


0003FCFf 
FflF0F«F7 
CCCCC0&3 
00003E7C 
CCCCCOOO 
0CnG3':7C 
OCCCCCGG 

C4C2FP1? 
C4D2f614 
E3D7F?1E 
E3C4f01B 


':AF04FfiO 
FflF?F4F0 
CCCGCOCD 
GCCGC0<)4 
CCCCGGGO 
CCCGCG44 
CCCGC3G9 

DOinOGOF 
2n213?F 
1U1141P 
2le21i)2F 

cifloieoF 


5PFBC2C4  E4D4C7C2 
4C4G4G4G  404G4043 


HFX  LENGTH  IS  OGGC 


GCnoSCGO 

GCOG53CC 

G5F007GO 

FFFFFF7C 

COGCfrFAS 

73467348 

C2fl372BA 

47FGF0AC 

GGG05GGC 

C4E4D407 

8CG58C?0 

D5404G40 

C60SE3C8 

4GC6C5C4 

404G4040 

Ee4G4G40 

40404040 

4C4C4040 

4G4C4G40 

404C4040 

E3C4C505 

C440E306 

404C4C40 

CC0(CC5C 

G0GC532G 

CCCCCCCC 

28BCO04F 

C70C52F2 

28300C4F 

010G54C1 

FtF3FSFl 

C6C"<FGP<) 

404G4340 


CCC0576R 

CCG052'»8 

^COEFGGA 

CCCOSOOG 

CCG00?6« 

47«07014 

!8CGFGCft 

SPCEFCn 

CCGG50GG 

FCC7C54G 

CC15GC12 

40404G4G 

C3E840D7 

4GE3C1E7 

4G40404G 

4C4C4G4C 

-SAME- 

40404G4G 

4C40404G 

4C404G4G 

E340E306 

E3C10340 

--SAME- 

CCCGCCOG 

OGG0534G 

CftC053DB 

CC4AGGGG 

4CG0CGC6 

CCCOOGOG 

COCOOGGG 

FfiF7FGF3 

FCF3F<)Fp 

'iC4C4C4C 


D50f4G05 
GGG0554« 
SG0G5CCE 
47FGF0fi2 
,00GG4FP8 
D2G2733E 
D2ini69 
5«FCCG0G 
<:CECCOGC 
GC00576A 
FlC6r«'C2 
GCC0CCC5 
4G4G4G4G 
ClEfl404C 
4G4G404G 
4G4GE3C5 
4CfcG404G 

404C4040 
4G4G4043 
404G404G 
E3C1C34G 
C5C5E34G 

CCCCCOOO 
G4G05r28 

acccccco 

G100(0FG 
31G052  F4 
OCCCFOOG 
070C412G 
F9C8C6E3 
FGFO;04G 
4C4G404G 


C1D4C54G 
flOOG5C74 
CCCGS3E8 
CCGC5GGG 
G0CC6a7G 
7299F912 
7Z760?02 
5flOGFGCA 
leSCS^flF 
CC0G5548 
CSC5C7PG 
GCFOFIFG 
4G4G434G 
C5064CP6 
C6C9C3C1 
4G4G4GC6 
4G4GC7fl 

4G4G4G4G 
4G4G4G4G 
<>G4G4G40 
CK1C4C9 
C7C1ES40 

ogccg:o;) 

2GGEE2Efl 
CCCGCG46 
5821CC58 
4CCG00G5 
CCP0GIG5 
ECCGGOGC 
E34C090f 
43404040 
4C404040 


2CQ04E''C 
C0033A48 
CCCCCOCC 
C0001A74 
CCC03000 
CC001A74 
CCCC3300 


0063  37CS 
33000314 
3(3403CC 
0033000C 
0G03300C 
OOOOOOOC 
303il0330 


37303991 
19231996 
00330330 
00003330 
03000540 
C0000C03 
0Gu.3!>A0 


39923A5C 
IA3CIA4C 
33680380 
CC000300 
33334030 
03000000 
0303412B 


,2n0878240 


C7J9F0)0  E01F003F  C402F013  3n0130F 

C402F313  3133133F  C402F413  4134134F 

r*02F7l4  214P142F  E3D7F0lfl  OlflOlBQF 

E3C7F3ia  3193183F  E307F4ie  41841S4F 

C505C44C  4C000000  C535C440  4C00A500 

CCCGC301  03000006  06040^03  40404J'.0 


FF150007 
C0C05A54 
0n00')3D8 
CC0C5000 
0A0407F1 
7341733E 
7187728A 
95C0E030 
FCBA9110 
CC005A00 
F 1000454 
40404040 
D5CU'4C5 
C640C4C5 
40E3CIE7 
4C404C40 
4C404040 

4C6C4040 
4C4C4040 
4C4C4040 
C3E840F2 
404CD3E8 

CCCC00)3 
E2F0F0F6 
CCC00030 
CC00530a 
CB00532P 
CCC0'i37O 
01035*31 
C?E6*C40 
40404043 
0CIC58E0 


E30054CE 
00005CP2 
0O0054C0 
000in7FF 

00005310 
4740703A 
02087^2 
4773F0A2 
00480719 
0003')Cfl4 
4C030329 
40404040 
40404040 
C7E243D7 
404340P5 
40434040 
40404040 

404040D9 
404340CR 
4040404C 
C9E9C5A0 
40E2C959 

00303000 
40010000 
00460000 
00033050 
OOCOOOOO 
00005378 
200030R4 
40434040 
404340'iO 
F36407FE 


0033'^C9E 
00305i\6fr 
03303C33 
00005030 
30035010 
FA1C7340 
72601232 
"6100048 
C7FF070C 
C3l)6C2r,6 
4C004fl96 
&0404340 
40434340 
C1E940C1 
r5E360D7 
404040C5 
40404340 

4CV0404C 
40404043 
404040C4 
4040C4C5 
C 5404040 

00338234 
00000000 
02005904 
00005427 
06035380 
00035D10 
06005418 
404040F0 
40404040 
F7(:8F4F7 


00035000 
300054C0 
017ft7F86 
0001D784 
00005F&8 
73CFF911 
7U37299 
92FFE0n0 
00305C9E 
F3F3F3FI 
2CE24000 
4J'tOE2t2 
40404304 
E5C54040 
CIE84040 
E340D7C1 
40434340 

43404340 
43404343 
C5n7C109 
D740CID5 
40'«04040 

0C00C106 
00028020 
00C80013 
REOOfiOOO 
00000350 
08B4a'(Fl 

00030350 
F1F0F107 
43404340 
Ff,F4F3F2 


C°0  CPO   PRO  OKO  

OKI  rK2   DK3  DK4  

DK5ii  .tDK6   0K7  TP3  

TPl  TP2   TP3  TP4  

TP5  TOO   END    ...ENO  ... 

t  •  •• 

ffROUMPBtiBDU^Pfi  •••••  0 


NO  NAME   ^•••ti 

•  CV  tttQttttittitttt 

•  0« •••OtiOOt«t 

 c  f  •••i«.r..«.s...«. 

••••••••K  ••••••It9« 

•  ^•••♦•fK««M«K  K«««.oK  

^•••••OF«ii««viOi  ••••••  0«  •••••••• 

.CC...0   0  •  *. 

tiGtiiCtiittiii*  iiiit i*«CO8F000l 

DUHPOPE  IDRKINOO  1  S  . 

 010  ss 

N  NA-E  H 

ONTHLY  PAY   NO  0  F  PEPS  PAY  AVE 
FED  TAX       PICA     TAK  NET-PAY 

T£     F  ET  PA 

Y  PA 


H 

OEPAR 

LY  SIZE     DEP  AN 
LY  SIZE 


TMENT  TOTAL  FA^I 
D  TOTAL  NET  PAY 


>SY  S006 


i2  tttttt^ 


639167039HGTT  RO 
FC09039800 


•  ..o..*<:  -* 

 1 

 t 

BY  OlOlP 


....0...7e47i4C2 


IA-02-02.22 


15 


0C53ED 
00540C 
00S42C 

305  ^^60 

005A&C 

005*f0 
0054FO 
CC55C0 

005'iO 
00'"'5'.: 
0055P0 
0C554C 
0055CC 

0056EC 
COSTCO 
005720 

0C576C 
0057<»G 
a057i3 
0C57CC 
0057EC 
005600 
005P23 
005fl43 
005(6C 
005«flJ 
005$&0 
0058C0 
0058EC 
005<)00 
0C5O2J 
0C5O4C 
00'i96a 
OCSSflO 
30S943 
0C59C0 
0059fC 
005AC0 
00'>A20 
005#4C 
005A60 
0C54PC 
OOS^JC 
Q35AC0 
0O54H0 
005P0C 

005P«0 


mm? 

P«C7C<JE<i 
C0F0<.040 
40404Q40 
r54040A0 

40C*C5f4 
404040«C 
0A3703CC 
5CF0l01fl 
0KCG7Fr 
000003CC 
471CFC26 
f0H47F0 
615rOCCC 
CCCCCCOC 
S8CEK6C 

ccc:occc 
ccccccco 
ccccoccc 
occc:ccc 
ococccoc 

OCCC530C 
0CC003C8 
CC005CP? 
0000594C 
CCOCSC^C 
202120F0 
5fllOClCP 
ceo 05 ?« 9 
0A0??370 
5fl?0CC?0 
4UCCC«C 
CIPCICCO 
C70005FC 
C71flR41 
CC2P07FF 
r20CO?CC 
5PCC021C 
C03flC7Fl 
5S10CC0C 
f01007i:i 
DID0601') 
COftSSiiFC 
F271C1D0 
*017D1D6 
6071P176 
FfllUCn 

Fe7niiDC 

A3IIF873 
D  IF  01 IDC 
702«P?05 
rJ0«>7C22 
CFOSOIEC 


AC4040A0 
4C404040 
<>C40^040 
[»Ffl40i^7 
^CF^riE7 
4C«0<.04C 
47F0F0U 
«»C0102E 
CISOIOO? 
U200F000 
CA075CE0 
FCU5PE0 

ccc:»oooo 

CCCCCOOO 

f:?ooio2ft 
cccnofico 

--S4"E-- 

CCOOOOOO 
CCC153Dfl 

oo4<»ift?r 
ccooscw 
ccroos" 

CC0C5'!A0 

oooo5ce<> 

CCC05BDr, 
2C212000 
4ei0C0fl6 
CAC24110 
ClC058flO 
C«C06CCO 
C7000«FC 
U«OFCl<. 
5C00F00B 
41F0CC24 
"flCOOPOC 
K03ft0?5 
fCOODlFf 

?F20rc3e 

C7Fl'iP00 

fi76nioo 

CC4C074F 
7P22FqiO 
5filOCC48 
CIPODIOO 
riP6F275 

wfhm 

KC9Fi33 

riMAOli 

CilO^'SR 
Cl'OCOfrO 
r20301F0 
6CC<50M0 


?f/Cf/7P 

C7C1C9C5 
404Ci04G 
ECflC4770 
4C404060 
Clffl«040 
4040<)040 
404CO40 

06C01«C0 
4710FCF6 
DOOOFJIA 
CC645PFC 
lClCC7Ff 
OOFOFO^r 
F024CA07 
1017C2G0 
CDIOCOOO 

OCCCCOOO 
CCCCSCC 

cc:ccoco 

CC00C470 
OCCCtOCP 
CC0O*872 
OOOui'JA* 
CC0C'i'"*5 

or.occooo 

9'iPFlOOO 

co?p;hoo 
oicocpoo 

fi025C7P2 
5COOF0C8 
41101004 
4'!C0F0CC 
WC?1041 
SOOOOIFP 
SR10C308 
5P00C034 

C5C10C7 
n?0C5OO0 

5:occ?io 

OlOOFflll 

Fe7irino 

D]PfrC064 
C7F1F?71 
CB1U0I7 
0'.CC7024 
F275rit,o 
PlD4tO0S 
FDSICIOA 

icoor.'C7 

4110C1E6 
CC77CE03 
opSRUOO 


C'!t84C01 
40404340 
FCSA4;eO 
40404G40 
05D64CO'> 
C^C9C3Cl 
40404043 
C3l=959E6 
44C0F0fcC 
C4C742C0 
CA32C30O 
10'3«113I 
P*01i:C*0 
0A3200OO 
90CEFC60 

icnici'. 

O0CCCC30 

OCCCCOCJ 
CCCC«:CRP, 
CC000303 
CCCOCCfS 
CCCC5''r.4 
CCCC59C4 
CCC351P'' 
CCG35CP2 
0fCCC304 
4U0CC''R 

rirciP40 

'ifllOC304 
4?CCF0CC 
4I2ai0E0 
CCCCCOOO 
FCC15PF0 
5P03CC2C 
07F15820 

scooono 

73IRC7B? 
P?0C5«!00 
F27101D0 
frOITCinf. 
6010F176 
5flF0CG50 
D1DC702' 
DintSPIO 

Fcsicir? 

7024FC'il 
F27SCIC6 
^C15FH73 
(•OEFCIF? 
riFC9ClOO 

niEonicE 

n737fCF9 


n')4C4CF0 
4C434340 
Fh04C40 

r«cic4C5 

ff40C*tC« 
4CE3Clr7 
4G404C^C 
F3F9cnO 
<;6CeFC60 
1C280A30 

100447P0 
«=CCC477o 
3C0)004P 

■iRcoioia 

CCCC0C4H 
CCCOOO}0 

CCOOUoJii 
(CCQ;2''fi 

cccccooc 

CCCC5%G 
CCCC5nnft 

occo??2r 

CCCC';Af6 
CF5CCC01 
5P58f206 

'coooice 

C70C0'i'=0 
5800020^ 
C7F15R0O 
CCCC0C3C 
02DFI0'')C 
OA020AOE 
IC1C45E0 
■iCCCD20C 
C03C954C 
581CCC13 
5eCC02GC 

npipiooo 

7C22F910 
5P10C04P 
CIOOC'IDO 
C7AFF871 
F91I01&6 
CC4PC7F1 
6C17F17f 
C1C26019 
7024FP13 
01C8P10A 
'j2Cfl63M 
CICCOMO 
02016057 
C1E2F871 


FlfOFie? 
40404040 
40404040 
40404040 
07E240D7 
404340D5 
40G30000 
130'4710 
P2001028 
07Ff0000 
P5C9£9fO 
F34C914C 
F05'>47F0 
030)0000 
4«C3I02E 
OOCOOOOO 
OOOOJOOO 

0000300C 
CU005348 
00000000 
00005C4E 
OCOOSROC 
0300591A 
00035400 
3C40205B 
[)7C'^D?40 
184005FC 
5000F008 
5000niF4 
D1F4500C 
04025810 
20O05'«3O 
5810D1CP 
ro085020 
5810C00C 
AC070T72 
37F15P00 
50000200 
D2045R30 
013'>C068 
07FIF271 
Fflll«.0l7 
DIP0601F 
C06R5RF0 
FP7101D0 
OlCODirO 
P17531D0 

nicccin4 

D20901E0 
7000D?ll 
925P10C0 
niE20209 

nipfsfion 


CfC3FlF2 
40434043 
40434040 
40404040 
C15840C1 
C5F360J7 

47F0FC4C 
F0240A)7 
1017D200 
00000300 
03 04 OA 00 
1C324710 
F04658':0 
00003000 
06C0lRr)0 
OCOOOOCO 
D0000330 

(/0005330 
000300}0 
00000030 
O03J5C17 
0000 RC 4 E 
000059S4 
00005424 
202C2120 
«vi>5R'"?C3 
5C00F30R 
4500F00C 

5803roic 

P20R5fl30 
niCR4R10 
01CC1R40 
SRFOrOH 
niBC5R70 
07F15R)0 
05006308 
DIFC5000 
EROOCOJC 
C04  35)03 
58FOC044 
D1D37022 
Din45HlO 
F17&D100 
C054074F 
6023F176 
F17AD100 
OUJOFni 
F8336011 
C0604110 
60C17)39 
C207f0n9 
OlEOCO^O 
07050108 


F0F5F6FB 

40404340 

4040E2E2 

404040D4 

E5C 54040  ■ 

C1E84040 

0A3200O0 

90CEF3<S0 

10171016 

OCOOOOOO 

91801002 

F0465fif0 

F064C7FE 

00005800 

44C0F06C 

CCOOOOOO 

00000030 

OCOOCOOO 

000783flC 

00005RDC 

00000368 

00O05C7C 

30305956 

00005454 

4R2Q204Q 

D^n6E2C5 

4500F00C 

03005348 

5000D208 

D1C81P40 

COPfrOSFO 

4110C090 

912&1310 

DlhC5RF0 

91PR5030 

60070772 

D2105310 

5000C20C 

D2105810 

077FFR71 

F910D106 

C34R07F1 

DIOOFRU 

F871D1D0 

OIDOPIDO 

DirOF833 

600D0104 

D1DC940F 

0lEfrDF09 

F275D108 

Dlf2F271 

411001E6 

C106540F 


5GRUNDY  GARVEY  J 
00 

•••«o**o 

N 

DNTHLY  PAY   NO  0 
FED  TAX  FIC4 

 OO.IJPFCZZW 

(((•••((••(•••Oi 

 0  

•••«Ktt«eiOtt««« 

..0...C  

OilOO  NiO- 

/*• •«««iiO0«i« 

 0  0- 

■ lO'Kti ■ ■ iKit ■ 


PAGE  12 

R  0101$FCl2056e 

I  SS 
NAME  H 
F  DEPS  PAY  AVE 
TAX  NET-PAY 

3<)  0  0- 

..0-K  K  


IJCFZIZO..  

....0  0... 

oiirOiaOO*««0«»t 
«•••• 

 .....0. 


■  ■  ■■•••ii • 

•■••9 ■•• ••••••^l 

...0  

■ •JHi « 

 J.. 

••■■■■■0&«0«ttO« 

 0  

• ■■OCtOtttOtitt • 

 Oi.K..,0..0 

•  •••■•KtCtJBittt 
KoK,-,-  l.« 

..*1....N.-  

• «••■ !■ ■ Ki CtKt • • 

Jt'tlt Ji Jt  JO 

2tJtt«<)tJ0«it0iC 
'■Jfltttti  12tJ«it 

6t*i Jn2i Jiiiit JK 
••J.-«.it«i«K.-9 


SfBOPEN  stBCLOSE 
••JH«  •OCiO««tO« 
■ ••0&«0i ttOttt** 

• !•■ J^CtKi ■• JHt 
••••••••JH«t«tiO 

K  J  

•  tot ••JH«0«i«i«« 

e •••OiGt J«it JttO 

(•Kttittc  !#• J6C# 

 N«-i-... 

• !•# JiCtKit* 

•  •KiCiK.««««C«K« 

 12iJt««?tJ0 

■ iBi Ji*« l«Jt JiB« 

• ttlBi Ji*i !• JtJ« 
.^•ItJtJt  ltJ«Jt8« 

JK-*ili  Jt  Jtfl«"iJM 

K|-XJSKi J«*««iJW 
JSR.JQ-.P.JOJ0** 


ERIC 


IA-02-02-22 


16 


304 


mm  cirjci703  01FOC07R  cfoicico  :iiDin2oi 

oospflc  neoftcco  Cfiio^zsR  ioooljo?  hiani^i 

0G5PAC  C6lC«?5fl  1CC0(VC7  SlUrifZ  FM3hOC^ 

005flC0  rirC92FC  PCCOSAFO  lOlO^ifO  PC0C5C20 

005PfC  C077CfO3  ClEObOCl  0202617?  UlFlfP71 

oosrco  riEorcen  «iio'>ie6  PFC90ifo  oidccmj 

005C20  <}2'tnRCF4  "jqiOOiCC  <)?6ce'iro  SpecioiO 

OO^fAC  CC7F02C3  fCOSfCfil  'iP10C20r  07Fir?Ol 

00SC6C  eC7'<n07A  •^'lO'^lCC  97M6J0C  SP^CIOIO 

OCSCO  C7Fl04Cf  sCDOSCC  SC'iOCIO'i  S«?CCOCO 

00<C»C  rO?AQ«FC  «12000'i«  'i7F0=0U  ?(>COI>C'iH 

005CCC  OOOAAllC  C:CAA170  CC69Ch70  OSSOlfAO 

005CeO  4173CICF  CM0S80C  SCCCIBOR  5CCCflCC3 

0050CO  DlflCSPPO  DirCSREO  r05A07P£  7CC0<)6F0 

005r?0  C9nifACf  nC7C<)f5  F3Fq<;iPC  1002A71O 

0C5CAC  1017FCC0  IKCWC  AK01017  AlfoCOlO 

OC50ftO  «3nFF107  A^C01016  1CCDA770  FCT'j^laO 

0C50«0  '.7nFC76  0AC7A200  1C2I3A'D0  1CUCAC3 

OnsrAC  <'20llC?P  *<)E31C78  D202K29  lOPSCFO 

OCCCO  CA0:C7FE  «1P01002  A71CF0HE  CAC7S101 

0O5OE0  A7F0F0DA  <»IC11027  07RE120O  A780FCFA 

CC5EC0  C00055A8  F:C0SC7A  F?C2':iF9  FOF7F6F5 

0C5E2D  43<)qF3«P  Cn^iBOB  A7F0F01A  WP0F252 

0C5EA3  07160^5  Efcfl^lFQ  OCCPIQAF  F?f.C<)lPO 

005£'.0  lOAA-^OAO  1C^091A3  1027A713  F1CCA7F0 

0C5E8C  1015«78C  FC7El«nO  AIACCIOO  IPCAA7C0 

005EA0  00FF4AC0  F?5A9PAP  F26CAA0O  10')407F6 

005ECC  910A106A  A710FCA2  0A0C91R0  10O2A71O 

0C5fEC  91CRlCn3  A7eOFOCA  91801064  A780F0D0 

305FC0  91BC10*A  A780P1AC  SPFOIO^A  S9«DF?6C 

0C5F2O  oOArF?(-C  47F0Pl'iA  CCCCCOOO  CCCCCCCO 

005FA0  A8RIO300  A9'»0F?W  A780P13C  APBOIO^E 

0C5F60  A7FCF15P  9lOAlOfA  A7flOfOCfi  5«E01C50 

005fPC  SflPOlCRC  AlfifiCCCO  SCP01358  91AC10A9 

005FA0  A8C010AA  ABCIOJOO  IACR*0C0  10ftC57O 

OmC  00051PCC  A3CP10?R  A3rP10A3  l''CDA770 

OOSFEO  0001A2fR  103«0503  103CI03fi  A7DOF202 

006CO0  AU0F2ftA  04029801  F2PC<;i20  1010A710 

0C6C2C  F0ACO1C8  ICAOi^TlO  F2Uq08  10&AA780 

0Cf.O«0  040C9110  10A9A780  F?24q710  10A9A7F0 

006C6C  1026A71C  FICCO120  1C?7A710  F1CC9AFF 

OC6080  C7FED20C  PCCO^COO  CCCCCOOl  !iP5PC?0^ 

OC6CA0  O00O'=5A8  80005PF6  C0300000  CCCOOOOO 

0C6CCC  CCCCCCOO  CC00C7FE  FFC810AS  A780FC98 

0C60E0  FHF3F0F3  MF3F761  F7FAIR00  A7FOF322 

0061CC  CCCCllO  AO1AA780  FOSCSlCR  A015A710 

006120  rOBCifill  CC0AA15A  CCCOAO'50  i^UASfSS 

0061AC  F0EA300O  A7P0PO';a  A1330C02  A7F0':CA8 

0C616C  CCC6AAC^  C0CA1852  92FO?000  P2065C01 

0C61P0  96015002  A7F0C09E  9fOi;O01  A7FCPC<;E 

OOMAO  07FF89C0  COIPAPAO  FUC160A  AllOFlOA 

006lfO  ni6CKl  1CC21002  AlUCD^C  5CD10CCO 

0C61F3  A^C^^lCn  1<;CDA770  f^\f^H^?J'>  K3«PPF0 

0C62C0  5R5RC2C3  rtr2f.'iD''  CCCCC^'OO  CCC00C01 


IA-02-02-22 


PAGE  n 


r2C9'^lFG 
6011F411 

97581CCC 
ASFOFOC 

fccnoi" 

A^EOFOOf, 

c?co70oa 

SP2riPC'5C 
10331EA« 
578ftlC0C 
C4120000 
F0'A0A07 
A3CeFC" 

10UA790 
91801002 
IClfiOftFO 
1C15A7RC 
18F007FF 
FAF3C3FI 
A7F0FC2? 
10A9A710 
FCAC93Rr. 
FC7AD»FF 
910S10A9 
F04C0A07 
1PE010AA 
SCFlPlOO 
CCCCOCOO 
A9RCf2'-C 
47FCFCfcA 
A71CF178 
10A9APEO 
F1PA*?EP 
9fC8lOA9 
FC7e91*0 
P2U5PPO 
PCPfl'JfRO 
lCA9S6iiO 
C7C5r5AO 
FPCCOOOO 
C5FCA7F0 
AlCCUOOl 
F0309120 
CC0CAl^5 
SCSOFCrA 
50001230 
^6015000 
0AO7910F 
C7FFII3C0 
CCCeA<'''0 
C3DA000<' 


•VO'i'Mt'S 
Cn^OAllC 

01C05R10 
L'70^DlC'fl 
n?07'.lPA 
SO20D1C0 
02/98000 
5D;3^1C0 
0''7912FF 
58EOD05A 
SOAOIOOO 
O20RIJ20P 
A7F0F0RA 
90rFF0Fr 
l90CA7flO 
F076920'' 
A710'=OSA 
98C0P0EC 
F0DA9AFE 
Q2RR102P 
At'MPOAO 
A7F0P01A 
F0Ai58A3 
105816HC 
0030^000 
A780P098 
91C1100A 
A7F0F3PA 
5fll31080 

cnoo3ooc 

A773F12A 
9120106A 
AAB010A4 
103A99fO 
103RRREC 
O301P293 
1027A7RC 
10900202 
10A999fiD 
1027A7PC 

oooosooo 

OOOOOOCC 
F018C9C3 
05F05nfO 
A007A7fl3 
30O3l2f.'i 
D!i033006 
A780F094 
5RE0FCFF 
nOA9A7flO 
0A060CCC 
PPCAICC 
03000030 


CO^DMIO 
PIE6(1F09 
C7<)A8.))0 
O20807PI 
Di:)8«A)P 
01020293 
SHflOOK.O 
60289740 
5890DIC0 
20039610 
07FcQA20 
8716S3J0 
C05CSfl60 
04370000 
59f31019 
F053A6cO 
10293A33 
0A07D201 
AA0310?? 
101591J2 
0A3037FE 
93i)BD3Cfl 
A7F0POIA 
102C5O1O 
F089S013 
1ADARM4 
9AF710A9 
A790F0RR 
91921033 
070305EE 
O1A01305 
A7A0FnC 
A790F158 
50R01060 
0008A350 
CCOSAfc^O 
98A0F?',C 
P1PA9A1F 
10811020 
1059A7P0 
F1CCD233 
0C305330 
00030030 
C2CAE2C1 
F0E=9O3'5 
FC?CA100 
A793F01C 
F0F0A790 
A900F0E6 
9805F0F2 
F03C5910 
000305FC 
3031A2C'^ 
03303  )30 


i:i;(-CFJ9 
O1FO6011 

60485910 
0203CIF0 
DirCD?09 
83006130 
02016001 
8J7AD209 
58100210 
DCAfl50E0 
OOABAlbO 

airoop: 

01CA597O 
A7F0F31A 
06E00200 
FJA00A32 
91R01302 
IC2610O3 
58E0F0FA 
1026C78E 
03005769 
C3RPB3AP 
0A32C9OI 
1058AAAO 
1J589110 
F06AA1CC 
A/FOFICC 
A7F0F236 
A780F110 
99F1E00C 
A7fl0F159 
96<i0l0A9 
961010A9 
A7F0F18A 
F263A1R0 
FPCAICC 
A130F28A 
1027A7P0 
5080102C 
F05691R0 
135R1060 
03005768 
00030000 
C5P0F3F1 
F0F2A1AA 
0C1OA7FO 
18350501 
P09EAA03 
A780F392 
58F0P0EA 
F11258F0 
CC01103P 
1C3BD503 
00000300 


J  e^e Jet •! e JtJt^e 
•  1 1     •  Ke /    IS<  i  *• 

JttOt ••Off  •  •«0t  r>t 
ttttJt'tKt/tJ»6» 

Jl • • Q Jf •  • 

 J..-.mO.. 

••Kt*itiiiKiilKi 


•  It  <  Ct  r*  Cf  •  •  r* 

...0  0  

 f„ 

..J  

J..iJ  ..0 

IJ0FAP1239  


..1  0... 

..0  

........K  £. 

• ••••••• ttOtt • 

.00  ou 

 *.7PA98765 

•  •T  00ii02i 

GFIEM739....2... 

..C..-  1..0 

....0  

• •••2a ••2a •••••• 

 0  

• • •• • •OD^ • • •• • 0^ 

••••••!•••• •••£• 

..2..01  

 2-..1  

•  01  OQiiiC 

••••••••Gtttt  •• 

 A., ..(;..-. 

 2. 

..2  2  

0  2  

 2  0 

•  •••  !•••••••!•  •• 

•  •K  $«B0 

 6  

••••••••••••• •Q^ 

A303/0,7/7A...OO. 

 0  

0  •••••••••• Cl • •• 

OII....0  00. 

••••••••• OC^K^ (• 

••r..(»oo^^^c^^oo^ 

•  ••!•••  !•••••!• 

1.  P  CJ.. 

 1  

«»RCOHF«,  „,.... 


/  •  JSK  •   •  •  •  •  JVi«  • 

J^^ ••• JW««  J*~a 

"•••"•"•Ki** •••• 

J#ot ^•••KaalK^Ja 

JC-.P.JOJ0.»J.K. 
•^••K^/«JSKf0«/« 
••O^C«J«^iJ,K,-, 

^••sl^^^^~««  asKt 

 C, 

•  ••C  »••••- 

•  (^••fl  ••••fi^^^J^ 

•  •••K.K^^S-JD^^ 
• ••••00^ •»«• •00« 

••07^^,^0C,,0  «• 
•M..0$.. ........ 

 0^^^K^.««^ 

 O.^.^^.tO^ 

•  ^••OHi«i«^« «««« 

.0  

A3CI+-0  ..L.C... 

•  CO..0O..0O.».IJ 

....0  r.  

0.  K  o,,, 

 ^Ot*?^^  •OU 

(i....^....0..02^ 

•  ••••OOU  \. 

.w ......... .\.. 

 1. 

..2-..1..  1..  .. 

.OOU  I  

•• !•• ••• ^••'•Ol^ 
 2.** 

1  U.. 

 2. ..2. ..2. 

0  1  0 

2...,.K  C... 

0  *••  itOOttt 

gtt  •••OltKtttt* 

PEN  ••&•••£  


•0^30^ILBOSAE03I 

•  •••• OC^O^^^  02^^ 
0*  0  0 

•  •••••••••O^ ••Nf 

UO.H...O...O... 
£»•••• O^t •0W^«0» 

••^•••0^^^02i00^ 

•  •••••••O^^^  !••  0 

 0.... 

....1  M. 


I 

17 


ERIC 


DEBUG 
US^JA 

SOFMRE  DIVISION,  CSD 
PRACTICAL  EXERCISE  NUHBER  4 
PROGRAH  NAHE:  DU{P^E 


1 


IBM  COS  A^'EPIC^N  N4TIC^AL  STANDARD  COflQL 


CBF  CL3-6 


2a/0fl/7B 


C»^L  LI 
00001 
03002 
00CC3 
00CC4 

000 

OOOCA 

000C7 

00CC9 

00009 

OOOlO 

OCOll 

00012 

00013 

00014 

00919 

0001#« 

00017 

OOClA 

01919 

00020 

00021 

00Q2;S 

00023 

00024 

00025 

0C026 

30027 

0C02II 

0007<) 

00030 

00031 

00032 

0CC"»3 

OOOMt  I 

0C035 

0C036 

00037  I 

P003I9 

tCO?^ 

00040 

00041 

00C42 

00043 

00044 

00049 

0C046 

dC047 

0004^ 

00049 

00050 

00051 

00092  f 


OCOOIC 
0C0020 
CCCC^C 
000340 
CCCC5C 
CCOOAC 
CC0070 
OCCOnC 
0C009C 
CCOICC 
OCOllC 
C09120 

cccnc 

CC014C 
CCC19C 
OCOIAC 
CC017C 
OCOlftC 
000 19C 
tC020C 
0C071C 
000220 
CCCP30 
000240 
000250 
30076C 
CCC27C 
3C079C 
0C0290 
0C030C 
0CO310 
CCC??C 


e*SIS  C?2r>«'P 

ICfMIFlCATlCN  CIVISICN. 

FRrGPA«-IO,  CtlMF-PE. 

ALIHOR.  LT  HUnalN. 

REKAPKS,  PE  CESIRNEO  FOR  USING 

FNVIFCNMENT  CIVISICN. 

cr^FI';uPATI^^  sectiom. 

SPFCIAL-NAfES. 

rol  IS  CHANl. 
INFUT-OUTPLT  SFCTION, 
FIlE-rCNTPCL. 

SELECT  PEPSCNNEL-MAST5R-FI 
ASSICK'  TO  SVS0C6-UT-2314 
SELFCT  PPINTKP 

ASSIGN  TO  SVS009-UP-1403 
CATA  DIVISICK. 
FILE  SECTICN. 
FO  PCRSCNKEL-MASTEQ-FILE 
LA^EL  PeCORCS  STANCARC. 
^*•Ol-PF«SCN^EL-MASTER-RCO. 

C9  IMCl-src-SEC-^uM 

!HCl-HAfF 
IMOl-OEFAPTMgNT 
FILLER 

I«01-M»fREP-CFPENCEKTS 
I^•Cl-fC^THLV-PAV 
FILLER 
FR INTER 

LABEL  REniRCS  CWITTEC. 
OPOl-PRI^TER-RCC 
WCFKING-STCRAGE  SECTICN. 
77  W?->«ASTEP-FILE-EOF-SWITCH 
77  VS-TrT*L-FAMLV-SIZE-SUK 


ALC  TC  DE»;JG  A  COBOL  PROGRAM, 


LE 
S. 


-S. 


01 


C9 
C5 
C5 
09 
C5 
C9 


FO 


01 


PIC  X(9I« 
PIC  XUBW 
PIC  XC2I. 
RIC  X(SI« 
PIC  9121. 
PIC  9<4|V9(7U 

PIC  x(3e)« 


PTC  XI133I. 

PIC  X. 

PIC  S9<3I 


VALUE 

IS  ZERO 

CC0330 

LSAPE 

IS  COMP-1, 

CC034C 

77 

-TOTAL-NFT-PAV-SUf* 

PIC  S9(5)V9(2) 

VALUE 

IS  ZERO 

CC035n 

LSAGE 

IS  COMp-3. 

CCC36C 

77 

\«s 

-DFPARTME^T-HClO 

PIC  X(2I 

CC0170 

VALUc 

IS  SPACES. 

0003RC 

77 

ws 

-FEDER^L-TAX-HCLD 

PIC  S9(4)V9(2) 

USArE 

IS  COHP-3. 

009400 

77 

US 

-FICA-TAX-HOLO 

PIC  S9(4)V9(2) 

CCC41C 

LSAGC 

IS  COMp-3. 

0C047C 

77 

liS 

-NFT-PAV-HOLO 

PIC  S9<4IV9(2I 

0C0430 

USAGE 

IS  COMP-3. 

CCC44C 

77 

liS 

-FA><ILV-SIZE-HPLD 

PIC  S9C?^I 

CCC45C 

LSAOE 

IS  COMP-3. 

CCC4^«.C 

77 

WS 

-TAX-RATE-HOLO 

R1C  S9V9(2I 

0CO47C 

ISAGE 

IS  COMO-3. 

CCC4eC 

77 

^s 

-FICA-TAX-PATE 

PIC  S>A9(3) 

VALUc 

IS 

IA-02-02-14 


307 


ERIC 


2 


OOCfl 

0CG^9C 

LSAPC 

IS  ro^p-a. 

PIC  SV9J3I 

00054 

CCOSOC  77 

WS-0-0'cPrNOENTS-T«X-fiATf 

00055 

CC0510 

LSAGE 

IS  COMP-3 

00056 

CC0!!20 

VALUE 

IS  «.2. 

00057 

OC09?0  77 

hS- 

l-«-OfcPEN0f NTS-TAX-BATE 

PIC  SV9(3I 

00058 

000540 

LSACE 

IS  COMP-3 

00059 

0C0550 

VALUE 

IS  «.15. 

oooto 

0CC56C  77 

fcS-5-l)-C£PEKDEMS-7AX-RATE 

PIC  SV9|1» 

00061 

000570 

LSAGc 

IS  cnMp-3 

00062 

ocotno 

VALl'S 

IS  «.12. 

ooota 

CCC5«{  77 

kS- 

o-12-r£PENUEMS-T«-RATE 

PIC  sv9n» 

OOOH 

OCOfOC 

LSAfiE 

IS  COMP-3 

oeoe5 

0C0610 

VALUE 

IS  noo. 

00066  ' 

CCCi2C  77 

HS-13-59-OEFENDEN1S-TAX-PATE 

PIC  sv9n) 

ami 

0006^0 

USAGE  IS  COMP-3 

ocotn 

CCCC4C 

VALUE 

IS  «.a5. 

OQ069 

WW  WW  » 

0C0(50  77 

HS- 

SWiTCh-CN 

PIC  X 

00070 

0CC66C 

VALUI: 

IS  '0'. 

00071 

WWW  •  A 

0CCt7C  77 

VS-SWlTCh-OFF 

PIC  X 

00072 

0C0610 

VALUE 

IS  'I'. 

0CG73 

WwW  ff  J 

0CCi4C  01 

WS-COLUHh-hEAOING. 

PIC  XU4I 

00074 

ceo  700 

C? 

FIUFB 

00075 

CC071C 

VALUE 

IS  SPACES. 

00076 

0G0T2C 

05 

FILLER 

PIC  XdRl 

00077 

WWW  1  r 

0C0730 

VALUE 

IS  'SSN', 

0007ft 

CCC74C 

C5 

FILLER 

PIC  X(15» 

00079 

0C0750 

VALUE 

IS  'NAME'* 

CC08C 

0C0760 

05 

FILLEP 

PIC  XI13» 

ocoei 

OC077G 

VALUE 

IS  "MnNTHLV  PAY' 

00082 

3C0780 

05 

FILLER 

PIC  xiin 

OOOM 

www  Vo' 

0CC7SC 

VALUE 

IS  'NO  OF  OEPS', 

0001*4  1 

G5 

FILLER 

PIC  xtin 

000!5 

www  »  ^ 

CCCCIC 

VALUE 

IS  'PAY  AVE', 

00086  1 

<15 

FILLFR 

PIC  X(IO) 

OQOiY 

WWWV  ' 

ocotso 

VALUE 

IS  'FED  TAX', 

000811  I 

"05 

FILLER 

PIC  Xll?) 

00089  I 

VALUE 

IS  'TAX  RATE', 

W  WW  ^ W  1 

C5 

FILLER 

PIC  XdU 

00091  I 

VALUE 

'PICA  TAX', 

00092  I 

www  »fc  • 

C5  FILIEP 

PIC  Xtl2l 

w.w w  ■  ^  1 

VALUE 

•NET  PAY', 

00094 

000980  01 

us- 

■CfTAIL-LM. 

PIC  xdi) 

0CC95 

CCCWC 

es 

FILLER 

0C0400 

VALUE 

SPACES, 

00CS7 

OC0410 

05 

WS-SrC-SFC-NllN 

PIC  X(P», 

OCOSB 

CCC92C 

C5 

FILLER 

PIC  X(5» 

GCCO30 

VALUE 

IS  SPACES. 

OOlCO 

c(c<;4C 

C5 

hS-NA>«E 

PIC  X(18), 

OOlOl 

0C0950 

C5 

FILLER 

t>IC  XI6) 

00102 

CGC060 

VALUE 

SPACES, 

00103 

C(0<370 

05 

VS-NCNTKY-PAV 

PIC  »"*9,99. 

0010^ 

C COO 90 

05 

FILLER 

PIC  X(6I 

00105 

cccoc 

VALUE 

SPACES. 
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0010^ 

COIOOC 

OS 

WS-NUHBER-OEFENDESTS 

PIC  29. 

OOlC? 

001010 

05 

FILLER 

PIC  X(6I 

OOlOP 

00102C 

VALUE 

IS  SPACES. 

001C9 

Q0103C 

C5 

WS-PAV-AVEPAGF 

PIC  «»siiq,9'>. 

couo 

C01C4C 

C5 

FILLER 

PIC  X(2I 

oom 

OOlOSC 

VALUE 

IS  SPACES. 

00112 

00106C 

05 

VS-FtOEPAl-T»X 

PIC  s»liq,99. 

ocin 

ocia7c 

05 

FIILER 

PIC  X(5I 

001 H 

CClOflC 

VALUE 

IS  SPACFS. 

0C115 

CCIC^C 

C5 

hS-TAX-RATE 

PIC 

00116 

oonoc 

OS 

FILLER 

PIC  XI7» 

00117 

ooiuc 

VALUE 

IS  '  x«. 

001 IR 

00112C 

C5 

hS-FICA-TAX 

PIC  s»$»9,99. 

OOllQ 

oomo 

OS 

FILLER 

PIC  XI3) 

c  ;?c 

C0114C 

VALUE 

IS  SPACES. 

00121 

001150 

C5 

hS-NET-FAY 

PIC  *»»«9«99, 

0012? 

OOllfO 

05 

FILLFfi 

PIC  X(ll) 

0C12? 

0C117C 

VALUE 

IS  SPACES. 

001?^ 

OOllRO  CI 

WS 

-FOmiK'G-LINE, 

00125 

OOllOO 

05 

FILLER 

PIC  X(35l 

0G126 

001?OC 

VALUE 

IS  SPACES. 

00l?7 

C01210 

cs 

FILLFR 

PIC  X|31» 

00124 

C01??C 

VALUE 

IS 

00129 

001730  ' 

•OEPARTt-FNT  TOTAL  FAMILY  SIZE' 

• 

CCPC 

001?40 

C5 

WS-TCTAl'FAllLY-SnE 

PIC  11% 

00131 

3(125C 

C5 

FILLER 

PIC  X{21l 

0013? 

OC1260 

«ALUE 

IS  '  ANO  TOTAL  NET 

00133 

0C1P7C 

C5 

I.S-TCTAL-NET-PAY 

Pit  «»l«9,99,  ■ 

00134 

00128C 

C5 

PILLFR 

PIC  X(34> 

0013? 

0C12<)0 

VALUE 

IS  SPACES. 

00136 

oopcc  PTcenuRE  rivisKiN. 

00137 

001310 

OPEN  INPUT  PFRSCNNEL--ASTER 

-FILE 

00138 

CCP'C 

OUTPUT  PFIK'TER. 

00130 

001330 

*'OVF  hS-SWITCH-OFF  TO  WS-^AJTER-FI  LE-EOF-SHITCH, 

CCIAC 

CC1?4C 

PEPFrfif  COIC-^EAC-ANC-PRINT 

THRU  0010-EXIT 

00141 

OC135C 

UNTIL  VS-KASTER-FIlE-tCF- 

SWITCH  EQUAL  TO  WS-SWITCH- 

0014? 

C01360 

CLCSF  FFPSCNUEL-^'ASTEP-PILE 

0C143 

C0137C 

PRINTER. 

00144 

001380 

STOP  RUN, 

0C145 

CCP'iC  CClC-PEfiO-AKr-PPIM, 

0014^ 

0014CC 

REAn  P£RSONKEL-"*STEP-FILE 

00147 

C0141C 

AT  E^D 

00148 

C01t?0 

PEFFCRH  002C-TCTALS-RTK 

ThRU  O0?0-EXIT 

0014<J 

001430 

"OVE  WS-SWITCH-CN  TO  WS-KASTER-FILE-EOF-SWITCH 

CC19C 

CC144C 

GO  Tr  OCIO-EXIT. 

00161 

001450 

IF  WS-CEPARTHENT-HOLC  EQUAL 

TO  SPACFS 

00152 

001460 

PFRFCPt'  0C30-hfA0ING-RTN  THRU  0330-EXIT 

OOlfl 

00147C 

ELSE 

00154 

001480 

IF  WS-CFP«RT«£NT-HCLC  NOT  EQUAL  TO  IMOl-OEPARTMEMT 

00155 

0C149C  * 

PEPni'^M  00?0-TOTALS-PT\  THFU  0020-EXIT 

00156 

001500 

PERFORM  n030-HEACING-1TN  THkIJ  0030-5XIT, 

C0157 

CClflC 

1"= 

IMOl-^u^'eER-oFFE^CE^Ts  ecual  th 

ZEROS 

00158 

CCISPC 

"PVE  WS-O-nEPENDENTS-TAX- 

R«TE  TO 

WS-TAX-BATE-HnLO 

I 
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00159  001530  ELSE 

C0160  flOlSO  \f  IHOl-MMBER-CfPENCENTS  LESS  THAN  5 

OOIH  00155C  »'nV£  SS-l-^-PtFCNOENTS-TAX-RiiTE  TD  HS-TlX-SiTE-HOLD 

00U2  CCi;6C  ELSE 

00163  OC1570  IF  It'Ol-MU''BFP-D£PENDf MS  LESS  TH4N  5 

00U4  0015P0  V'JVf  liS-5-P-0EPEK?ENTS-T*X-9.ATf  TO  WS-T4X-RAT;-H0LD 

00U5  CC15«C  FLSE 

00166  OOlfCO  IF  IMCl-NUt'PER-OEPENDEMS  LESS  THAN  13 

00167  OOUlO  HOVF  wS-9-12-CEPEN0ENTS-TAX-'^ATg  TO  WS-TAX-^ATE-HOLO 
OOltS  QtU?.:  ELSE 

00169  00U30  "CVF  WS-13-5S-CEFFNCEMS-TAX-MTE  Tr 

CC17C  CClt^C  fcS-TAX-P4TE-KLr. 

00171  1  AOO  1  IM0I-NUM8EB-0EPENDENTS 

0017?  !  T'lVBG  WS-FAMILY-SIZE-HOLD. 

00113  0016SO  HllLTlFLt  IfOl-fCNTKY-PAIf  PY  HS-TAX-OATE-HOLO 

00174  CC166C  GIVING  WS-FE0EPAL-T4X-KLC. 

00175  C0U7C  MULTIPLY  l»'Cl-fCMHLY-PAY  3V  |,S-FICA-T4X-R4TE 

00176  DC16B0  GIVINR  WS-FICA-TAX-HOLP, 

00177  CC16«?C  SDPTRACT  HS-FlCA-TAX-HfLD  kS-FEOEPAL-TAX-HOLO  ROM 

00178  001700  IMOl-MCNTKY-PAY 

00179  CC17K  GlVUr.  HS-HET-PAY-HOLO 

OOlflO  031720  CIVIPE  hS-NFT-PAY-HOLC  BY  HS-FAKILV-SUE-HOLO 

flOlPl  0C1730  niVlKC  hs-pay-avesace, 

001«?  001740  «nVE  llrOl-SCC-SEC-MJ"  TO  WS-SCC-SEr-NU«. 

00183  001750  "nVE  IM01-SA«F  TP  WS-N4HE. 

001P4  0C176C  MOVF  IfQl-fCNTHLY-PAY  TO  hS-^CNTHLY-PAV, 

OOieS  OC1770  MDVE  IMOl-NUMBER-DEPENDENTS  TO  WS-NOHBE'I-DEPEHDExJTS. 

001P6  OC178C  »'OVE  taS-FECEBAL-TAX-HGLO  TC  WS-FFDE"; AL-TAX. 

00167  001790  ^'^Vf  WS-TAX-SAT=-HCLC  TO  WS-TAX-5ATE. 

OOlfP  CO]  BOO  VCVE  WS-FIC*-TAX-KLC  TO  WS-PICA-TAX. 

00189  CC1810  •"JVE  WS-NET-PAY-HCLC  TO  KS-KET-PAY, 

00190  0fllfl2G  AOO  WS-NET-FAY-HQLO  TO  WS-TOTAL-KET-PIY-SU^ 

00191  0C1930  AOO  *.S-FAMlLy-SI?P-HCLD  TC  hS-TCTAL-FAHRY-SlZE-SUH, 
0019?  001840  WRITE  OROl-FR INTER-RCO  FRPM  WS-OETAIL-LINE 

00103  CClflSC  AFTER  ACViNCING  2  LRES. 

00194  0C186C  COIC-EXIT,  EXiTo 

001«;  COlliTO  C020-TQTALS-RTN, 

0C196  0018«C  HOVE  WS-TCTAL-FACILY-SHf-SUV  TO  WS-TOTAL-FAHILY-S I 

00197  0C1B90  HOVE  WS-TOT^L-MET-PAY-SU'^  TC  hS-TOTAL-NcT-PAY. 

OCISP  Ctl<!CC  kRITE  CROl-fl  MER-RCC  FPCK  hS-FCOTIN'-.-l  INE 

30199  OOPIO  AFTER  ACVANCING  ^  LINES. 

CC2CC  001920  MOVE  7£RC$  TO  hS-TQTiL-FA«'ILY-SI2E-SUM 

00201  0C193C  kS-TCTH-NET-PAY-Sl*. 

00202  0C1940  002C-EXIT.  EXIT, 
0C2C3  OCISSC  CC^O-HEADUO-PTK. 

00204  0C1960  "OVF  IMCl-DEPAOTwEST  TO  hS-CEPARTMcNT-HOLD. 

00205  0C1970  WRITF  OROl-FklNTER-RCC  FapH  VS-C0Ll)>'N-HEft3Ifr. 

00206  CC19BC  AFTER  ADVANCING  CHAM, 
002CT  0C1O90  00?0-EX1T«  EXIT. 
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im%  mi     LVL  SOURCE  NAME 


BASE     niSCL     Ii^TRNL  NAME     DEFINITION  USAf-P 


l-Hl 

FD 

PFBSC^NEL-KAST£R-FIL£ 

nN«« 

01 

I^Ol-FEPSONNEL-M&STER-HCD 

PS"* 

l-23« 

02 

IMOl-SOC-SEC-MJH 

OKMt 

l-2^C 

02 

I^Cl-KAME 

1-279 

02 

IN01-rFPART"ENT 

1-10« 

0? 

FILLEB 

1-120 

02 

IMOl-NUHpfR-DEPEWEMT!; 

1-3!? 

0? 

If-Cl-WNTHV-PAV 

rNK* 

1-178 

0? 

FILLED 

l-3«'7 

ep 

PRINTER 

DN><i 

l-*2B 

01 

0R01-F1INTER-RCC 

OS»i 

77 

V.S-"4JTFR-FlLE-Fnc-SMITCH 

ON«*i 

2-CCC 

77 

KS-TOTAL-fAMlLY-SnE-SUK 

DNH« 

2-03ii 

77 

KS-TOTAL-NET-PAV-SU" 

DKH< 

2-C47 

77 

KS-DEPAPT«ENT-h]LO 

2-CS5 

77 

WS-FFCERAL-TAX-HrLD 

2-I2« 

77 

hS-FICA-7AX-t-0LD 

rM«i 

2-15C 

77 

VS-NET-PAY-KCLC 

7-l7(! 

77 

hS-FA''lLV-SIZE-HCLO 

2-2C7 

77 

W-TAX-PATE-FOLC 

2-233 

77 

KS-FICA-TAX-RATt 

2-259 

77 

HS-O-CEFENOENTS-TAX-RATE 

2-293 

77 

kS-l-4-rePENOENTS-TAX-RATE 

0N"« 

2-329 

77 

WS-5-K-ntPFNDEMS-TAX-RATF 

DN*I> 

2-165 

77 

VS-Q-12-CEPENOEMS-r/X-RATE 

2-«2 

77 

hS-13-99-DEPFNCcNTS-TAX-RATE 

77 

fcS-SWiTCH-QN 

2-M-7 

77 

hS-ShlTCH-OFF 

3-CCO 

01 

US-COLUMN-hEAOlNG 

3-C3C 

0? 

MLLEP 

DNM. 

3-049 

0? 

FILIEB 

DKN> 

3-C6» 

02 

FILLER 

CN«» 

3-Cf7 

0? 

FILLER 

0N"« 

3-106 

02 

FILLER 

DNM* 

3-125 

0? 

FILLFP 

m»' 

3-U« 

0? 

FILLER 

PNM. 

1-163 

0? 

FILIEF 

DNH. 

3-182 

02 

FILLEfi 

ONN« 

3-201 

02 

FILLER 

ONM> 

1-2?0 

01 

hS-DETAIL-LINE 

PKM- 

3-250 

02 

FILLER 

DNH» 

1-26<! 

02 

hJ-SOC-SEC-NUf 

2-293 

02 

FILLER 

OKKi 

3-312 

02 

WS-NANE 

CK'N* 

3-2?q 

02 

FILLER 

PM*. 

3-148 

0? 

«*S-MOKTHL>-PAY 

PN**" 

1-383 

02 

FILLER 

PNI»» 

3-402 

02 

WS-NU*'flfR-nFPENOENTS 

1-436 

02 

FILLER 

rN»«» 

3-^5E 

02 

kS-PAV-AVfPAGE 

DTF«Ol 

nNH.l-l5l 

DTFSD 

«L»1 

nNH.1-196 

OS  0CL80 

GROUP 

BL«1 

000 

DNM«l-234 

OS  9C 

nisp 

BL'l 

009 

DNM.1-260 

US  lac 

DISP 

RL»1 

OIB 

0NM»l-279 

OS  2C 

OISP 

BL»1 

010 

DNHal-304 

OS  5C 

DISP 

BL'l 

022 

DNM.l-320 

DS  2C 

OISP-NN 

BL»I 

0?4 

DNHxl-352 

DS  6C 

DISP-NH 

BLM 

D2A 

DNM-1-378 

DS  3«C 

OISP 

nTF»0? 

ONM.1-397 

PTPPP 

U»2 

JJO 

ONM.1-428 

PS  133C 

DISP 

HLO 

000 

DNM«l-454 

DS  IC 

DISP 

qL»3 

001 

DN^»2-000 

DS  2P 

COHP-3 

flL«3 

003 

DNM-2-034 

DS  4P 

COHP-3 

RL'3 

307 

ONM.2-067 

DS  2C 

DISP 

BL=3 

009 

ONM.2-095 

DS  4P 

COMP-3 

RL»3 

000 

DNM.2-124 

DS  4P 

COHP-3 

HL'3 

Oil 

0NM«2-150 

DS  4P 

COMP-3 

BL»3 

015 

DN«»2-i7R 

DS  2P 

COMP-3 

RL'3 

017 

!3NM»2-207 

DS  2P 

COHP-3 

IJL»3 

019 

DN!^«2-233 

DS  2P 

CDMp-3 

BL»3 

OIB 

0NM«2-Z59 

DS  2P 

COMP-3' 

BL»3 

010 

0NM.2-2q3 

PS  2P 

COHP-3 

BL«3 

OIP 

DNM.2-329 

DS  2P 

COHP-3 

RL«3 

J21 

0NMx2-365 

DS  2P 

COHP-3 

8L'3 

023 

ON«»2-409 

DS  2P 

COHP-3 

BL»3 

025 

0N'1»2-440 

DS  IC 

DISP 

BL'J 

026 

0N1»2-4<.2 

DS  IC 

DISP 

BL«3 

02  B 

0NM»3-000 

DS  0CL127 

GROUP 

RL'3 

028 

ON M» 3 -030 

OS  14C 

DISP 

flL»3 

036 

ONH.3-049 

OS  IBC 

OISP 

RL»3 

04B 

■DNM»3-068 

OS  15C 

OISP 

RL»3 

057 

DNM«3-087 

DS  13C 

DISP 

SL>3 

064 

DNH.3-106 

DS  UC 

DISP 

BL»3 

06P 

ONM.3-125 

DS  UC 

OISP 

BL«3 

07A 

0N««3-144 

OS  IOC 

DISP 

BL»3 

034 

DN1»3-163 

DS  12C 

DISP 

BL»3 

093 

DN«»3-182 

OS  lie 

DISP 

6L»3 

09B 

DNM»3-20l 

DS  12C 

DISP 

BL»3 

OAS 

DNM.3-220 

OS  0CL133 

GROUP 

BL»3 

OAB 

ONM.3-250 

DS  UC 

OISP 

BL»3 

033 

DNH.3-269 

DS  9C 

DISP 

PL»3 

OBC 

0NM»3-293 

DS  5C 

OISP  • 

BL»3 

OCl 

ONH.3-312 

DS  IRC 

OISP 

flL»3 

0D3 

ONM.3-329 

DS  6C 

OISP 

flL»3 

009 

DNH«3-34fl 

OS  BC 

NM-EOIT 

BL«3 

051 

ONM.3-383 

DS  6C 

OISP 

BL»3 

0E7 

0NM«3-402 

DS  2C 

NH-EDIT 

PL»3 

0£9 

0NMe?-«9 

DS  6C 

DISP 

BL»> 

OcF 

DNi'«3-458 

DS  8C 

NM-EDIT 
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SWITCH 

TAILY 

SHRT  SAV6 

0C5S9 

ENTRV^SAVE 

u  v  ^  *w 

SOFT  CORE  SUE 

00'5A0 

kSTC*REELS 

SCFT  RET 

0C5A6 

UCPKINfi  CFLLS 

SOFT  FIlP  S1?E 

SOFT  More  SIZE 

pr;7-VN  TBL 

W  V  '  1  w 

TQT'-VN  TBI 

rcf  FA 

SQSTA6  ACCRESS 

GCfcEP 

LEKGTH  OF  VN  TBL 

0C6EC 

LSGTH  OF  SQRTAP 

CCfEE 

V  V  r  t  K 

FGP^  ID 

COf  FO 

At  IMTl) 

OC6F6 

UP!I  SWITCHES 

0C6FC 

OVERFLOW  CELLS 

0C7C4 

BL  CELLS 

00704 

DTFACR  CELLS 

TF**P  STHRAGE 

CiC7lR 

WW  '  11 

TPf^F  STOPAGE-2 

TEMF  ST0PAGE*3 

TPJ^P  STGRAGE-4 

It'*       «/IU'"'^vW  1 

PLl  CELLS 

VLC  CELLS 

CC73C 

SBL  C^LLS 

OC73C 

^IIPACP  CELLS 

fMfTL  CELLS 

CC73C 

PFMCTL  CELLS 

V  U  F  rib 

PFNSAV  CELL  S 

VN  CELLS 

CC1!C 

S«VE  AP.EA  «2 

■0075C 

XSdSW  CELLS 

0C15C 

XSA  CELLS 

CC75C 

paP4M  CELLS 

001 5C 

RBTSAV  *PEA 

CCI^C 

rf-FC^^PT  CTB 

CC75C 

ICPTP  CELLS 

0C15C 

LITERAL  FOOL  IHEXI 

00700  an»0»  CFSC^CCI  BCIOOJO  18202021  2C^RZ020  ^0202120  F3202120 
C07Efl  aiT*?A)      onOCCOCO   CCOCOOn^   SBSBCJO*   CICSDSAO   5K5pC2C3  n306E2C5 
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7 


9 


PGT 


CVE^FLOW  CELLS  CC768 

VIRTUAL  CELLS  0C768 

PPCCFRIIBE  un  CELLS  0C76C 

CENERATro  NAME  CELLS  CC7e« 

S'JKTF  ADDRESS  CHLS  0C7C^ 

m  CELLS  0C7C4 

IITEPALS  007CO 

DISPLAY  LITffiALS  CCICO 


REGISTER  ^SSIC^^£^■T 

REG  f<  PL  »3 
PEG  7  i>t  '1 
RFC  fl     PL  »2 


137 


CCC100 
GCCROC 
OCORO^ 
0CC«08 
OCCROC 
OCORIO 

0CCP16 
CCCRIR 
030P1C 
0C0R2C 
0CCR2A 
0CCR26 
000R2A 
00C82E 
300f>3C 
OCCRl? 
000634 
O00R3A 
0CCR1C 
OCCP40 
300R42 
0CC846 
OCCHA 

ooceso 

OC0854 
3CCPSE 
0CCP5C 

occeftc 

000860 
0CCP64 

:ccpf>A 

0CCR6r 


ICS 
066 
CflO 
OPR 
1C8 


CCfl 

ooc 


SB  10  0 
4"^  10  C 
<I4  «F  I 
41  10  C 
S8  00  0 
18  40 
CS  FO 
50  00  F 
45  00  F 

cocoocoo 

OA  07 

41  10  C  0"R 
58  00  C  ICC 
18  40 
C7  00 
C5  FO 
50  00  F 
45  00  F 
CO COCO 00 
OA  0? 
50  20  C 
58  SO  C 
0?  00  6 
58  CO  D 
5C  00  C  1F4 
58  00  C  OIC 
50  00  C  'O-J 


START 


CCR 
OOC 


ICO 
ICO 
CCO 
?CR 


58  20  C 

05  00  4 
07  82 

58  10  C 


020 
CRO 

004 


TN-Ol 


6  025 


L 

If  lCR(Qa3l 

OTF"! 

cu 

3n 

ltO66(0|121 

LITOO 

OOOl lifX'flF' 

1  A 

L  A 

It088(0tl2l 

LI7»32 

1 

I. 

!?TF"l 

LR 

4,0 

HALR 

15,0 

ST 

0,00813,151 

BAL 

0,00C(0,15) 

DC 

X'OOOOOOOO' 

SVC 

2 

LA 

1,08810,121 

LIT+32 

L 

ClCCIOtll) 

DTF-2 

LR 

4,0 

BCR 

0,0 

BALR 

15,0 

ST 

0,008(0,151 

RAL 

0,O0C(0,15) 

PC 

X*00000300> 

svr 

2 

ST 

?,ico(o,nt 

BL  »2 

L 

8,ICO(0,13I 

RL  -2 

MVC 

000(1,51,026(61 

DNM.l-454 

L 

0,209(0,13) 

VN»Ol 

ST 

0,1F4(0,13I 

PSV'l 

L 

0,01C(0,12» 

r.N*oi 

ST 

0,208(0,131 

VN»Ol 

EQU 

« 

L 

2,020(0, 12> 

r,N-02 

CLC 

000(1.61,025(6) 

0NN«l-454 

PCR 

L 

1,004(0,12) 

PN-01 

DNM>2-462 


PNM»2-440 
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313 


10 


1^4 
190 

141 


15? 


194 
194 

19S 


157 

159 
1(0 
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00091A 

1 

I 

locale 

M  DO  n  ?oc 

ST 
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lC2ilC03 
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00005768 

cipee3»n 

0A32C9O1 
I0S84AA0 
1C5P9110 
F06441CC 
4  7F  OF  ICC 
47F0F236 
4780FII0 
OIFIEOOC 
4780FI5P 
5f40lC49 
96101049 
WF0F18A 
F2f34lR0 
FIOC^ICC 
U03F284 
I027^7F0 
50n0102C 
F0569180 
10'S81060 
CCCC57ft8 
OOCCOOOO 
C5F0FV1 
F0F241«* 
T31047F0 
1835D501 
F09E4403 
47S0FC92 
5<»F0F0EA 
F112SSF0 
OOOIP^EO 
CCCCCwCO 


<543FUlDf 
C?09C1£0 
6011C610 

seioDicc 

DIl:0CC7e 

r?09LiEo 

>nC9?40 

ecoiccpo 

C2048080 
D21CC7F1 
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47F0F322 
40154710 
F11A5855 
47F0F348 
02065001 
47F0F09E 
4110P10A 
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COBOL  SYNTAX  DEBUG 
Practical  Exercise  Booklet 

INSTRUCTIONS  TO  THE  STUDENT:  / 

This  booklet  contains  three  (3)  COBOL  Source  program  listings,  each 
with  an  Associatedj Compiler  Error  Diagnostic  Listing. 

You  are  to  correct  the  syntax  errors  by; 

1.  Circle  the  portion  of  the  source  statement  in  error, 

2.  pencil  in  the  correction  to  be  made  on  the  source  listing. 

When  you  correct  all  the  errors  in  the  first  practical  ^xercise  tur« 
to  the  back  of  this  booklet  and  check  your  answers  against  the  school  sol- 
u?ion    If  yoS  have  any  questions  concerning  this  exercise  see  your  instructor 
for  assistance. 

Follow  .  this  procedure  for  all  three  practical  exercises  in  this  book- 
let. 
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QOOOl 
00002 
00003 
00004 

dooos 

60006 
00007 
00008 
00009 
60010 
60011 
00012 
60013 
00014 
00015 
00016 
00017 

oooia 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

O0044 

.00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 


IDENTIFICATION 
PR06RAH-I0. 
AUTHOR • 
INSTALLATION. 
OAT E-WRITTEN. 
DATE-COMPILED. 
SECURITY. 
♦REMARKS. 


DIVISION. 
COBSYNl. 

SP6  DHGROSSf  SOFTWARE. 
CSOt  USAIA,    FT  HARBISON, 
MAR   3  1978. 
JUN  15,1978 
UNCLASSIFIED. 
THIS  PROGRAM  LISTS 
EACH  DAY.   IT  LISTS 
NAME.   AND  CUSTOMER 


IN  46216. 


ALL  ORDERS  RECEIVED 
THE  PART  NUMBER*  CJSTGHER 
ADDRESS. 


MS-OROER-EOF-SW  IS 
DIVISION  TO  SIGNIFY 
CONDITION  HAS  BEEN  REACHED. 


USED   IN  THE  PROCEDURE 
MHEN  THE  END  OF  FILE 


ERIC 


ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE-COMPUTER.  IBM-360-H40. 
OBJECT-COMPUTER.  IBM-360-H40. 
SPECIAL-NAMES. 

COl  IS  TOP-OF-PAGE. 
INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  IM-ORDER-FILE 

ASSIGN  TO  UT-S-SYS006. 

SELECT  OR-ORDERS-LISTING 

ASSIGN  TO  UT-S-SYS005. 
DATA  DIVISION. 
FILE  SECTION. 
FO  IM-OROER-FILEt 

BLOCK  CONTAINS   1  RECORDSt 

RECORD  CONTAINS  80  CHARACTERS t 

LABEL  RECORD  IS  STANDARD. 

DATA  RECORD  IS   IMO 1-ORDER-RCD. 
01  IMOl-OROER-RCD. 

05  IMOl-PART-NO 

05  IMOl-CUSTOMER-NAME 

05  IMOl-CUSTOMER-ADDRESS 

05  IMOl-UNIT-OF-ISSUE 

05  IHOI-QTY-ORDERED 

05  IMOl-PRICE-ITEM 

05  IMOl-CUSTOMER-CODE 

05  FILLER 
FD  OR-ORDERS-LISTING* 

BLOCK  CONTAINS   I  RECORDS, 

RECORD  CONTAINS  133  CHARACTERS. 

LABEL   RECORD  IS  STANDARD, 

DATA  RECORD  IS  OROl-ORDER-LINE. 
01  OROl-OROER-LINE 
WORKING-STORAGE  SECTION. 
77  WS-ORDER-EOF-SW 

VALUE  •OFF*. 

01  WS-HEADING-LINE. 
05  FILLER 

VALUE  SPACES. 
1 
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PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


9(4). 
X(18). 
X( 18). 
XX. 
999. 

9(  3)  V99. 
X. 

X(31). 


PIC  X{133) 


PIC  XXX 


PIC  X(33J 


IA-01-03-03 


2 


00055 

00056 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

Q008I 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 


05 

FILLER 

PIC 

X17) 

MAI  1 IC 
V  A  LUC 

( DART    un* - 

U!> 

C  T  1  1  CD 

SPACES. 

PIC 

X(ll) 

05 

FILLER 

VALUE 

•CUSTOMER 

PIC 
NAME*. 

X(  L3) 

05 

FILLER 

VALUE 

SPACES. 

PIC 

X(12) 

05 

FILLER 

PIC 

X(  16) 

VALUE 

•CUSTOMER 

ADDRESS 

•• 

05 

FILLER 

VALUE 

SPACES. 

PIC 

XI41I 

PIC  X(35) 

PIC  914). 
PIC  UXO) 

PIC  Xtl8). 
PIC  X(8) 

PIC  X(18). 
PIC  X(40) 


01  WS-DETAIL-LINE. 
05  FILLER 

VALUE  SPACES. 
05  WS-DL-PART-NO 
05  FILLER 

VALUE  SPACES. 
05     MS-DL -CUSTOMER-NAME 
05  FILLER 

VALUE  SPACES. 
05  WS-OL-CUSTOMER-AODRESS 

05  FILLER 

VALUE  SPACES 

PROCEDURE  DIVISION. 
0010-ORIVER. 

OPEN  INPUT  IM-ORDER-FILE 

OUTPUT  OR-OROERS-LI STING. 
WRITE  OROl-ORDER-LINE  FROM  HS-HEAO ING-LINE 

AFTER  ADVANCING  TOP-OF-PAGE. 
PERFORM  0020-READ-LIST-RTN  THRU  0020-EIXT 

UNTIL  HS-ORDER-eOF-SW  EQUAL  •ON*. 
CLOSE  IM-OROER-FILE 

GR-OROERS-LISTING. 

OOlO-EXIT. 

STOP  RUN. 
0020-READ-L IST-RTN. 

READ  IM-ORDER-FILE 
AT  END 

MOVE  •0N»  TO  WS-OROER-EOF-SW 
GO  TO  0020-EXIT. 
MOVE  IMOl-PART-NO  TO  HS-OL-PART-NU. 
MOVE  IMOl-CUSTOMER-NAME  TO  WS-DL-CUSTOMER-NAME. 
MOVE  IMOl-CUSTOMER-AOORESS  TO  WS-DL-CUSTOMER-AODRESS, 
WRITE  OROl-OROER-LINE  FROM  WS-DETAIL-LINE 
AFTER  ADVANCING  2  LINE. 
0020-EXIT. 
EXIT. 
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CnnUn  nCJdAVb 

33 

IKF1004I*E 

23 

IKF2146I-H 

1 1 

f  1 

f  * 

1  IN  r  1  w*f  J  i  n 

96 

IKF3001I-E 

99 

IKF4003t-E 

INVALID  WORD  DATA  .  SKIPPING  TO  NEXT  RECOGNIZABLE  HORD. 

RECORD  SIZE  IN  RECORD-CONTAINS  CLAUSE  DISAGREES  WITH  COMPUTED  RECORD  SIZE.  USING 
NAXIMUK  COMPUTED  SIZE, 

PICTURE  CONFIGURATION  ILLEGAL.  PICTURE  CHANGED  TO  9  UNLESS  USAGE  IS  'OISPLAY-STS 
THEN  L(6)BDZ9B0Z9. 

VALUE  CLAUSE  LITERAL  DOES  NOT  CONFORM  TO  PICTURE.  CHANGED  TO  ZERO. 
END  OF  SENTENCE  SHOULD  PRECEDE  PROCEDURE  .  ASSUMED  PRESENT. 
002lhEIXT  NOT  DEFINED.    THRU  OPTION  DISCARDED. 
HS-OL-PART-NU  NOT  DEFINED,  DISCARDED. 

EXPECTING  NEU  STATEHENT.  FOUND  LINES  .  DELETING  TILL  NEXT  VERB  OR  PROCEOURE-NAHE. 


ERIC 


326 


3// 


CBS4S  V2  LVL78  01MAY72 


IBM  OS  AMERICAN  NATIONAL  STANDARD  CC 


UvUU  1 

I DENT I FIC AT ION   DI VISION* 

ALJTI-in:^«                   SP6  DH  GROSS* 

W  V/ W  W  "T 

INSTALLATION*     CSOt  USA lAp   FT  HARRISON 

'  IN 

46216. 

noons 

DATE  WRITTEN*     HAR  3t  1978* 

00006 
\<  V  v  \y  *i* 

DATE-COMPILED*   JUN   15t 1978 

00007 

SECURITY*  UNCLASSIFIED* 

00008 

♦REMARKS*               THIS  PROGRAM  LISTS  ALL 

PERSONNEL  IN  THE 

00009 

♦                                BATTALION  WITH  OVER  75 

MONTHS 

SERVICE. 

ono  1  o 

OOO I  1 

ENVIRONMENT  DIVISION* 

00012 

CONFIGURATION  SECTION* 

0001  ^ 

SOURCE-COMPUTER*  tBM-360-H40* 

vf  w  W  X  *f 

nttJECT-CDMPUTER*   I  BH*-360-H40* 

UUUlO 

rm  T  ^  TOP—nF— PAGE- 

INPUT- OUTPUT  SECT I ON* 

U  w  V  X  O 

F ILE— CONTROL* 

SELECT  IM-PERSONNEL-MASTER-FILE 

\J\J\3C  u 

ASSIGN  TO  TU-S-SYS006. 

SELECT  OR-PRINTER 

00022 

W  W  M  b  b 

ASSIGN  TO  UT-S-SYS005. 

DATA  DIVISION. 

00024 

W  W  W  b  ~ 

FILE  SECTION. 

nno25 

FD  IM-PERSONNEL-MASTER-FILE 

00026 

BLOCK  CONTAINS  1  RECORDS. 

O0O27 

RECORD  CONTAINS  80  CHARACTERSt 

LABEL  RECORD  IS  STANDARD* 

DATA  RECORD  IS  IMOl-PERSONNEL-MASTER-RCD. 

VJ  U  W  J3  w 

01  IMOl-PERSONNEL-MASTER-RCO. 

AOft^  1 

05  IMOl-BATTLAION 

PIC 

XX. 

UUU 

05  IHOl-COMPANY 

PIC 

X. 

/inn  ^ 

05-  IMOl-SSAN 

PIC 

9(9}. 

05  IMOl-NAME 

PIC 

XI18). 

05  IMOl-PAY-GRADE 

PIC 

XY. 

05  IMOl-RANK 

PIC 

X(3). 

\I\J\J  ^  9 

05  IMOl-ETS 

PIC 

X(6I. 

w  W  W  ^  O 

05  IMOl-OATE-OF-ENTRY 

PIC 

X(6). 

05  IMOl-MQNTHS-OF-SERVICE 

PIC 

9(3». 

00040 

05  IMOl-NUMBER-OF-DEPENDENTS 

PIC 

99. 

00041 

05  IMOI-PREVIOUS-ASSIGN-INFO 

PIC 

X(28). 

00042 

FO     OR-PR INTER t 

00043 

BLOCK  CONTAINS  1  RECOROSt 

00044 

RECORD  CONTAINS  133  CHARACTERS* 

00045 

LABEL  RECORD  IS  STANDARD. 

00046 

DATA  RECORD   IS  OROl-PRINTER-RCO. 

00047 

01  OROl-PRINTER-RCD 

PIC 

XU3X). 

00048 

WORKING-STORAGE  SECTION. 

00049 

77  HS-MASTER-FILE-EOF-SHITCH 

PIC 

XXX 

00050 

VALUE  'OFF* 

00051 

01  HS-HEADING-LINE. 

00052 

05  FILLER 

PIC 

X(53> 

00053 

VALUE  SPACES. 

00054 

05  FILLER 

PIC 

X(5} 

ERiC 
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00055 

00056 

00057 

00059 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

d0073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 


05 

FILLER 

VALUE 

SPACES 

HS- 

OETAIL-LINE* 

05 

FILLER 

VALUE 

SPACES. 

05 

WS-DL-NAHE 

05 

FILLER 

VALUE 

SPACES. 

05 

US-DL-RANK 

05 

FILLER 

VALUE 

SPACES. 

05 

WS-DL~SSAN 

05 

FILLER 

VALUE 

SPACES. 

OS 

WS-DL-HONTHS-OF-SERVICE 

05 

FILLER 

VALUE   'OVER  75  MONTHS  OF  SERVICE*. 

PIC  X(55> 


01   

PIC  X{18I. 
PIC  X(10) 

PIC  XXX. 
PIC  X(9) 

PIC  9(9). 
PIC  X(7) 

PIC  ZZ9. 
PIC  X(38). 

VALUE  SPACES 
PROCEDURE  DIVISION. 

OOlO-DRlVER.  ^ 
OPEN  INPUT  IM-PERSONNEL-MASTER-FILE 

OUTPUT  OR-PRINTER. 
WRITE  OROl-PRINTER-RCD  FROM  WS-HEAPING-LINE 

AFTER  ADVANCING  TOP-OF-PAGE. 
PERFORM  002/-ReAD-LlST-RTN  THRU  0020-EXIT 

UNTIL  WS-HASTER-FILE-EDF- SWITCH  EQUAL  'ON*. 
CLOSE  IM-PERSONNEL-MASTER-FILE. 
OR-PRINTER. 

OOlO-EXlT. 

STOP  RUM. 
0020-READ-L IST-RTN. 

READ  IM-PERSONNEL-MASTER-FILE 
AT  END 

HOVE   'ON*    TO  WS-MASTER-FILE-EOF-SWITCH 
SO  TO  0020-EXIT. 
IF   IMOl-MONTHS-OF-SERVICE  GREATER  THAN  75 

THEN 

MOVE  IMOl-NAHE  TO  HS-OL-NAME 
MOVE  IMOl-RANK  TO  WS-DL-RANK 
HOVE  IMOl-SSAN  TO  WS-DL-SSAN 
MOVE  WS-DL-MONTHS-OF-SERVICE  TO 

IMOl-HONTHS-OF-SERVICE 
WRITE  OROl-PRINTER-RCD  FROM  WS-DETAIL-LINE 

AFTER   ADVANCING  2  LINES. 

0020-EXIT. 
EXIT. 
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URO 

eRROR  HESSAGE 

.1 

IKFU29I-C 

IKF1087t-H 

iKrX 

}9 

1KF2039HC 

17 

C| 

41 

37 

7D 

72 

IKF10M(-E 

79 

IKF1007I-W 

79 

IKF3001I-E 

79 

IKF1007I-U 

79 

]KF300iI-E 

82 

IKF10861-W 

93 

IKF40S2I-E 

10  D!V«  HEADER  EXTRANEOUSi  MISSING  OR  HISPLACEO.  ONE  ASSUMED  PRESENT. 

1  DATE  •  SHOULD  NOT  SEC IN  A-MARGIN. 

DEVICE  CLASS  INVALID  IN  SYSTEM-NAME,  SKIPPING  TO  NEXT  MELD. 

PICTURE  CONFIGURATION  ILLEGAL.  PICTURE  CHANGED  TO  9  UNLESS  USAGE  IS  'DISPLAV-ST'i 
THEN  Li 6)8DZ9BDZ9# 

RECORD  SUE  IN  RECORD-CONTAINS  CLAUSE  DISAGREES  WITH  COMPUTED  RECORD  SIZE.  USING 

MAXIMUM  COMPUTED  SIZE.   

PICTURE  CONFIGURATION  ILLEGAL.  PICTURE  CHANGED  TO  9  UNLESS  USAGE  IS  'DISPLAY-ST', 

THEM  L(6)eOZ9BDZ9. 

END  OF  SENTENCE  SHOULD  PRECEDE  01  .  ASSUMED  PRESENT. 

RECORD  SIZE  IN  RECORD-CONTAINS  CLAUSE  DISAGREES  WITH  COMPUTED  RECORD  SIZE.  USING 
MAXIMUM  COMPUTED  SIZE. 

VALUE  CLAUSE  LITERAL  TOO  LONG.  TRUNCATED  TO  PICTURE  SIZE. 
END  OF  SENTENCE  SHOULD  PRECEDE  01  .  ASSUMED  PRESENT. 
INVALID  WORD  VALUE  •  SKIPPING  TO  NEXT  RECOGNIZABLE  WORD. 
SLASH  NOT  PRECEDED  BY  A  SPACE.  ASSUME  SPACE. 

002  NOT  DEFINED.  STATEMENT  DISCARDED. 

MINUS  SIGN  NOT  PRECEDED  BY  A  SPACE.  ASSUME  SPACE. 
READ-LIST-RTN  NOT  DEFINED. 
OR-PRINTER  SHOULD  BEGIN  A-MARGIN. 

DHM-I-35e  lEOI  MAY  NOT  BE  TARGET  FIELD  FOR  0NM-2-2fl3  INEI  IN  MOVE  STATEMEMTi  AND 
IS  DISCARDED. 
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00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 


DIVISION. 
C0BSYN3. 
SP6  DW  GROSS. 

CSDt  USAIA»   FT  HARRlSONf    IN  46216, 
MAR  3,  1978. 
JUN  15  f  1,978 
UNCLASSIFIED. 

THIS  PROGRAM  PRODUCES  THE  DEPENDENT  INFORMATION 
REPORT.    IT  LISTS  ALL  PERSONNEL   IN  THE  BATTALION 
WITH  5  OR  MORE  DEPENDENTS  BY  NAME,    RANK»  COMPANY, 
AND  SIZE  OF  FAMILY. 

WS-MASTER-FILE-60F-SWITCH  IS  USED  TO  SIGNIFY 
UHEN  THE  END  OF  FILE  CONDITION  HAS  BEEN 
ENCOUNTERED. 

WS-TOTAL-OEPENOENTS   IS  USED  TO  ACCUMULATE  THE 
DEPENDENTS   FOR   THE   PURPOSE   OF   PRINTING   IT  IN 
THE  TOTAL  LINE. 


IDENTIFICATION 
PROGRAM  ID. 
AUTHOR. 
INSTALLATION. 
DATE-WRITTEN. 
DATE-COMPILED. 
SECURITY. 
*R EM ARKS. 

* 

* 
* 

♦ 

ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE  COMPUTER.  IBM-360-H40. 
OBJECT-COMPUTER.  IBM-360-H40* 
SPECIAL-NAMES. 

COl   IS  TOP-OF-PAGE. 
INPUT-OUTPUT  SECTION. 
FILE  CONTROL. 

SELECT  IM-PERSONNEL-MASTER-FILE 
ASSIGN  TO  UT-S-SYS006. 

SELECT  OR-PRINTER 

ASSIGN  TO  UT-S-SYSb05. 
DATA  DIVISION. 
FILE  SECTION. 


FD 


01 


IM-PERSONNEL-MASTER-FILEt 
BLOCK  CONTAINS   1  RECORDS, 
RECORD  CONTAINS  80  CHARACTERS, 
LABEL  RECORD   IS  STANDARD, 

DATA  RECORD  IS  IMOl-PERSONNEL-MASTER-RCD. 
IMOl-PERSONNEL-MASTER-RCO 


FD 


05 

IMOI-BATTALION 

PIC 

XX. 

05 

IMOI-COMPANY 

PIC 

X. 

05 

IHOl-SSAN 

PIC 

9(9). 

05 

IMOl-NAME 

PIC 

X( 18). 

05 

IMOl-PAY-GRADE 

PIC 

XX. 

05 

IMOl-RANK 

PIC 

XXX. 

05 

IMOl-ETS 

PIC 

X(6). 

05 

IMOl-DATE-OF-ENTRY 

PIC 

X(6). 

05 

IMOl-MONTHS-OF-SERVICE 

PIC 

999. 

05 

IMOl-NUMBER-OF-DEPENDENTS 

PIC 

XX. 

05 

IMOI-PREVIOUS-ASSIGN-INFO 

PIC 

X(28). 

QR- 

PRINTER, 

BLOCK   CONTAINS   1  RECORDS, 

RECORD  CONTAINS 
LABEL  RECORD  IS 


133  CHARACTERS, 
STANDARD* 


ERIC 
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2 


-3/0 


00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
0006^ 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
OOllO 
00111 

ERIC 


DATA  RECORD  IS  OROl-PRINTER-RCO. 
01  QROl-PRINTER-RCD 
WORKING-STORAGE  SECTION. 
77  HS-LINE-COUNTER 

VALUE  ZEROS. 
77  WS-TOTAL-DEPENDENTS 

VALUE  ZEROS. 
77  WS-MASTER-FILE-EOF-SHITCH 

VALUE   fOFf . 
01  WS-HEADING-LINE-l. 
05  FILLER 

VALUE  SPACES. 

05  FILLER 


01 


05 


01 


01 


PIC  X(133). 
PIC  Z9 
PIC  ZZ9 
PIC  XXX 

PIC  X(53l 

PIC  x(2a) 


05  FILLER 

VALUE  SPACES. 
WS-HEADlNG-LlNE-2. 
05  FILLER 


VALUE   •DEPENDENT  INFORMATION  REPORT* 

PIC  X(52; 


05 
05 
05 


FILLER 
FILLER 
FILLER 


FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 


VALUE  SPACES. 

VALUE  'NAME*. 

VALUE  SPACES. 

VALUE  'RANK*. 

VALUE  SPACES. 

VALUE  • COMPANY •• 

VALUE  SPACES. 

VALUE  'FAMILY  SUE?* 

VALUE  SPACES. 


HS-DETAIL-LINE. 
05  FILLER 

VALUE  SPACES. 

05  WS-DL-NAMEC 
05  FILLER 

VALUE  SP^^CES. 

05  WS-DL-RANK 
05  FILLER 

VALUE  SPACES. 
05  HS-DL-COMPANY 
05  FILLER 

VALUE  SPACE.. 
05  WS-OL-FAMILY-SIZE 
05  FILLER 


HS-TOTAL-LINE. 
05  FILLER 


VALUE  SPACES. 


VALUE  SPACES. 


PIC  XC3S> 
PIC  X(4^ 
PIC  X(18) 
PIC  X(4| 
PIC  Xflpl 
PIC  X(7I 
PIC  X(7I 
PIC  XflU 
PIC  X(34l 

PIC  XC32) 

PIC  X(181 
PIC  X(10) 

PIC  XXX. 
PIC  X(14^ 

PIC  X. 

PIC  X(15l| 

PIC  ZZZ9. 
PIC  X(36) 

PIC  Xi32} 


05 
05 


FILLER 
FILLER 


PIC  XI341 

VALUE   *  TOTAL  NUMBER  OF  DEPENDENTS  WITHIN* 

PIC  XC18) 
VALUE   'THE  BATTALION  IS*. 
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05     WS-TL-NUMBER-OF-DEPENDETS  PIC  ZZ9. 

05     FILLER  PIC  X(46) 

VALUE  SPACES. 

PROCEDURE  DIVISION. 
OOlO-DRIVER. 

OPEN  INPUT  IM-PERSONNEL-MASTER-FILE 

OUTPUT  OR-PRINTER. 
PERFORM  0030-HEADING-RTN  THRU  0030-EXIT. 
PERFORM  0020-READ-HRITE-RTN  THRU  0020-EXIT 

UNTIL  HS-MASTER-F I LE-EOF- SWITCH  EQUAL  •ON*. 
MOVE  HS-TOTAL-DEPENOETNS  TO  WS-TL-NUMBER-OF-OEPENDENTS . 
WRITE  0R01-PRINTER"RCD  FROM  WS-TOTAL-LI NE 

AFTER  ADVANCING  3  LINES. 
CLOSE  IM-PERSONNEL-MASTER-FlLEf 
OR-PR INTER. 

OOlO-EXIT. 
EXIT. 

0020-READ-HRITE-RTN. 

READ  IM-PERSONNEL-MASTER-FILE 
AT  END 

MOVE   'ON*   TO  WS-MASTER-FILE-EQF-SWITCH 

60  TO  0020-EXIT. 
ADD  IMOl-NUMBER-OF-DEPENOENTS  TO  WS-TOTAL-DEPENDENTS. 
IF    IMOl-NUMBER-OF-DEPENOENTS  LESS  THAN  4 
THEN 

GO  TO  0020-EXIT. 
IF   WS-LINE-COUNTER  GREATER  THAN  15 

THEN  ^ 

PERFORM  0030-HEADING-RTN  THRU  0030-EXlT. 

MOVE  IMOl-NAME  TO  WS-OL-NAME. 
MOVE  IMOl-RANK  TO  WS-OL-RANK. 
MOVE  IMOl-COMPANY  TO  WS-DL-COMPANY. 

ADD  1»    IMOI-NUMBER-OF-DEPENDENTS  GIVING  WS-OL-FAMI LY-S I2E. 

WRITE  OROl-PRINTER-RCD  FROM  WS-DETA IL-LINE 
AFTER  ADVANCING  2  LINES. 

ADO  1  TO  WS-LINE-COUNTER. 
0020-EXIT. 

EXIT. 
0030-HEADING-  "N. 

MOVE  0  TO  jS-LINE-COUNTER. 

WRITE  QROI-PRINTER-RCD  FROM  WS-HEADING-LlNE-1 

AFTER  ADVANCING  TOP-OF-PAGE. 
WRITE  OROI-PRINTER-RCD  FROM  WS-HEADING-LINE-2 

AFTER  ADVANCING  3  LINES. 
0030-EXIT. 
EXIT, 
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EBftOft  MESSAGE 

C 

IKF108TI*U 

J 

IKF1097I'-E 

22 

mm 

IKF10I7I-W 

11 
mm 

1KF1004I-E 

It 
m  9 

IKF10I7I-M 

11 

lKfl004I-E 

28 

1KF1003I-W 

40 

lKFt043I-U 

75 

1IIF1004I-C 

IKF1043I*'U 

101 

IKFlOBll'W 

101 

iKFioeoi-u 

m 

IKF3001I-E 

\22 

IKF3001I-E 

134 

IKF4019I-E 

m 

IKF4C19I-E 

141 

1KF3001I-E 

144 

1KF4019I-E 

144 

1XF5011I-U 

147 

UF4019I-E 

•  PROGRAM  *  SHOULD  NOT  BEGIN  A-MAR6IN,  .uucniATeiv  cm  my 
PROWAH-IO  NISSIN6  OR  MISPLACED.  IF  PROGRAM-ID  DOES  NOT  IHHEOIATELY  FOLLOW 
IDENTIFICATION  DIVISION,  IT  MILL  BE  IGNORED. 

•  SOURCE  •  SHOULD  HOT  BEGIN  A-HARGIN, 

INVAUO  WORD  SOURCE  .  SKIPPING  TO  NEXT  RECOGNIZABLE  WORD. 

•  FliF  *  SHOULD  NOT  BEGIN  A-NARGIN. 

INVALID  WORD  FILE  .  SKIPPING  TO  NEXT  RECOGNIZABLE  HORO. 
FILE-CONTROL  PARAGRAPH  NAME  MISSING.  ASSUMED  PRESENT. 
END  OF  SENTENCE  SHOULD  PRECE61  05  .  ASSUMED  PRESENT. 
iSvAlIoioRO  VALUE  .  SKIPPING  TO  NEXT  RECOGNIZABLE  WRO. 
END  OF  SENTENCE  SHOULD  PRECEDE  05  .  ASSUMED  PRESENT. 
PERIOD  NOT  FOLLOWED  BY  SPACE.  ASSUME  END  OF  SENTENCE. 
PERIOD  PRECEDED  BY  SPACE.  ASSUME  END  OF  SENTENCE. 
NS-TOTAL-OEPENOETNS  NOT  DEFINED.  DISCARDED. 

SUBSTITUTING  TALLY  • 

S'S"tSrSlAu"iI!lI}  «T«         flELD  RIGHT  HAVE  ITS  HIOH  O.DE.  DIGIT  mUim 

W^2"f'm)  M»  NOT  BE  USED  «S  «RITHBETIC  OPERAMO  IH  »tO  ST»TEHEHT.  4RBITRAMIV 
SUeSTITUTlNG  TtUY  • 
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OOCOl 

0OJ02 

00003 

00004 

00005 

00006 

00007 

00008 

000G9 

00010 

00011 

00012 

00013 

OOOK 

0001$ 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00046 

00049 

00050 

00051 

0O052 

00053 

0U054 


IDCNTiriCATION  DIVISION, 


PROGKAK-ID. 
AUTHOR, 
INSTALLATION. 
CATE-HKITTEN. 
OATh-CWILEO. 
SECORITY. 
«ftENARKS. 

« 
« 
* 

« 


COBSYNl. 
SP6  DH  CROSSf  SOFTWARE. 
CSOi  USAIAi  FT  HARRISON,  IN  46216. 
MAR  3  197B* 
JUN  21 1 1978 
UNCLASSIFIED. 

THIS  PROGRAM  LISTS  ALL  ORDERS  RECEIVED 

EACH  OAV.  IT  LISTS  THE  PART  NUMBER,  CUSTOMER 

NAME,  AND  CUSTOMER  ADDRESS. 


WS-ORDER-EOF-SW  IS  USED  IN  THE  PKOCCOURE 
DIVISION  TO  SIGNIFY  kHEN  THE  ENO  OF  FILt 
CONDITION  HAS  BEEN  REACHED. 
ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SOURCE-COMPUTER.  IBM-36Q-H40. 
OBJECT-COMPUTER.  I6M-360-H40. 
SPECIAL-NAMES. 

COl  IS  TOP-Of-PAGE. 
INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  IM-OROER-FILE. 

ASSIGN  TO  UT-S-SYS006. 
SELECT  OR-ORDERS-LISTINC 
ASSIGN  TO  UT-S-SYS005, 
DATA  DIVISION. 
FILE  SnCTlON. 
FD  IM-OROER-FILE, 

BLOCK  CONTAINS  1  RECORDS, 
RECORD  CONTAINS  80  CHARACTERS, 
LABEL  RECORD  IS  STANDARQ9; 
DATA  RECORD  IS  IMOl-OROER-RCD. 
01  IHCl-ORDER-RCD. 
05  IHOl-PART-NO 
05  IMCl-CUSTGMER-NAME 
05  IHOl-CUSTOMER-ADORESS 
05  IMOI-UNIT-OF-ISSUE 
05  IMOl-OTV-ORDERtO 
05  IMCI-PRICE-ITEH 
05  IMOI-CUSTOMER-COOE 
05  FILLER 
FD  OR-ORDERS-LISTING, 

BLOCK  CONTAINS  1  RECORDS, 
RECORD  CONTAINS  13J  CHARACTERS, 
LABEL  RECORD  IS  STANDARD, 
DATA  RECORD  IS  OROl-OROER-LINE. 
UROI-ORDER-LINE  XI 133). 


01 

WDRKIMG-bTCRACE  SECTION. 
77  WS-ORDER-£OF-Sk 

VALUE  'OFF'. 

01  Wi-HCACING-LINE. 
05  FILLER 

VALUE  SPACES. 


PIC  9(4). 
PIC  X(18). 
PIC  XilBI. 
PIC  XX. 
PIC  999. 
PIC  9(3IV99. 
PIC  X. 
PIC  X( 


PIC  XXX 


Vic  XI33) 
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0O0S5 

00056 

00057 

0005  B 

00059 

00060 

00061 

00062 

00063 

0006<k 

00065 

00066 

00067 

0006B 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00Q79 

00080 

0008 1 

00082 

00083 

00084 

0008S 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 


05 

FILLER 

VALUE 

rl L  A 1 f  J 

05 

C 1  1  1  CO 

VALUE 

SPACES. 

113 

C  f 1 1  CD 

pif  XI13) 

WAl  IIP 
VALUC 

05 

FILLER 

VALUr 

PIC  X(l2t 

0? 

C  T  1  1  CD 

PIT  1(1^1 

VALUE 

•CUSTOMER 

ADDRESS*. 

CI i  i CD 

VALUE 

SPACES. 

air  tffin 

■DETAIL-LINE, 

05 

FILLER 

VALUE 

SPACES. 

PIC  X(35) 

WS-DL-PART- 

NO 

PIC  9(4). 

05 

FILI£R 

VALUE 

SPACES. 

picQTxJji 

05 

MS-DL-CUSTUKER-NAHE 

PIC  XI18). 

05 

FILLER 

PIC  XI8) 

VALUE 

SPACES. 

PIC  XI18I. 

05 

HS-OL-CUSTOHER-AOORESS 

05 

FILLER 

PIC  XI40I 

PROCLDURE  CIVISION. 
0010-ORIVER. 

OPEN  INPUT  IM-UROER-FILE 

OUTPUT  GR-ORDERS-Lt STING. 
WRITE  CROl-ORDER-LINE  FROM  WS-HEAOING-LINE 

AFTER  ADVANCING  TOP-OF-PAGE.   ^  ^ 

PERFORM  0020-REAO-LlST-RTN  THRU  0020-(lixn£//t 

UMTIL  WS-OROCR-EOF-SK  EQUAL  'ON*. 
CLUSE  IM-OROER-FILE 

OR-OROERS-LISTING. 

0010-EXIT. 

STllP  RUN. 
0020-REAO-HST-RTN. 

READ  IM-OROER-FILE 
AT  END 

HOVE  'ON'  TO  WS-ORDER-EQF-SN 
GO  TO  0020-EXIT.  _ 
HOVE  INOl-PART-NO  TO  MS-DL-PART-HUi  AC* 
HOVE  IHOl-CUSTOHER-NAHE  TO  WS-OL-CUSTOHER-NAHE. 
MOVE  IHOl-CUSTOHER-ADDRESS  TO  WS-DL-CUSTOMER-ACDRESS. 
MRITE  OROI-ORDER-LINE  FROM  WS-OETAIL-LlNE 
AFTER  ADVANCING  2  HHiQ  iijj£S. 
0020-EXIT. 
EXIT. 
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0 


ERIC 
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OOOOl 
00002 
00003 
00004 
00005 
00006 
00007 

ooooe 

00009 
OOOlO 
00011 
00012 
00013 

ooou 

OOOlS 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00C40 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 


THIS  PRCGRAfI  LISTS  ALL  PtiRSQNNEL  IN  THE 
BATTALION  WITH  OVER  75  MCNIHS  SERVICE. 


lPROGRAH-ID*  CDBSY.-„ 
rtOtiHTIFlCATION  DlVlS10?i7>  "PftOGi^Om-xak . 
S^UTHGR.  SP6  6m  gross. 

INSTALLATION.    CSD,  USAIA,  FT  HARRlSONi  IN  46216. 
(nArEinrrnTHk>    mar  3»  1978."b(We-\jiWTT>;t^. 
OATE-CUMPILEO.  JUN  21tl978 
SECURITY.  unclassified. 
^REMARKS. 
* 

ENVIRONKENT  DIVISION. 
CONFIGURATiaN  SECTION. 
SOURCE-COMPUTER.  IBH-360-H40. 
nBJECT-COMPUTER.  IBM-360-H40. 
SPECIAL-NAMES. 

COl  IS  TOP-OF-PAGE. 
INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 

SELECT  IH-PERSONNEL-HASTER-FILE 

ASSIGN  TO  (Tu-s-SYrnnrtf  ta-s-'SA'^cJU, 

SELECT  OR-PRINTFr 

ASSIGN  70  UT-S-SYS005. 
DATA  DIVISION. 
FILE  SECTION. 

FO  IM-PERSOSNEL-HASTER-FILE 

BLOCK  CONTAINS  1  RtCOROSi 

RECORD  CONTAINS  80  CHARACTERSt 

LABEL  RECORD  IS  STANDARD, 

DATA  RECORD  IS  IMOl-PERSONNEL-HASTER-RCO, 
01  IMCl-PERSONNEL-MASTER-RCD. 


05 

IMOI-BATTLAION 

PIC 

XX. 

05 

IMOl-COMPANY 

PIC 

X. 

05 

IHOl-SSAN 

PIC 

9191. 

05 

IHOl-NAHE 

PIC 

xuej. 

05 

IMOl-PAY-GRADE 

PIC 

05 

IMOl-RANK 

PIC 

X(3). 

05 

IMOI-ETS 

PIC 

Xt6>. 

05 

IMOl-OATE-OF-ENTRY 

PIC 

X(6i. 

05 

IHOI-HONTHS-OF-SERVICE 

PIC 

9(3). 

05 

IMOl-NUMBER-OF-OEPENDENTS 

PIC 

99. 

05 

IHOl-PREVIQUS-ASSIGN-INFO 

PIC 

X(28). 

OR- 

•PRINTER, 

FD 

BLOCK  CONTAINS  1  RECORDS, 
RECORD  CONTAINS  133  CHARACTERS, 
LABEL  RECORD  IS  STANDARD, 
DATA  RECORD  IS  OROl-PRINTER-RCD, 

01  ORGl-PRINTER-RCD 

WORKING-STORAGE  SECTION. 

77  HS-MASTER-FILE-EOF-SHITCH 

VALUE  'OFF^-j 

01  HS-HEACING-LINE. 
Q5  FILLER 


picwmx) 


PIC  XXX 


PIC  XI53I 


VALUE  SPACES. 


05  FILLER 


Pic(xm)  -xC^^) 


i3 


ERIC 
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U&l  MP 
VALUE 

MONTHS  QF  SERVll 

F  f L 1  PR 

SPACES 

PIC  X155I 

Ida*" 

OS 

FILLER 

VALUE 

SPACES. 

PIC  XI3&) 

U-> 

PIC  XI18I. 

rtR 
0? 

FILLER 

VALUE 

SPACES. 

PIC  XllO) 

HS-OL-RANK 

PIC  XXX. 

05 

FILLER 

VALUE 

SPACES. 

PIC  Xt9) 

05 

WS-DL-SSAN 

PIC  «)<9>. 

OS 

FILLER 

VALUE 

SPACES. 

PIC  x(n 

05 

taS-DL-HONTHS-OF-SERVlCE 

PIC  Z29. 

05 

FILLER 

VALUE 

SPACES 

PIC  Xi38). 

PROCbOllRE  CIVISION. 
OOIO-DRIVER. 

OPEN  INPUT  IM-PERSONNEL-MASTER-FILE 

OUTPUT  OR-PRINTER, 
WRITt  CROl-PRINTER-RCO  FROM  HS-HEAOING-LINE 

AFTERaQliA<*M**GJSPlSF-P*<'t. 
PERFORM  ftflzSiAQriallHilB^        0020-EXlT  q!)0Z^-T\6ftVLX^-T-«.TM 
.  u^<TOP^^^TE^^^^0F-s^^^ 

CLOSE  IHj^ERSONNEL-MASTER-FILqQ     C.Us^^^KCgv'g^^f*''*:'*- ^^^'^^ 

0010-EXIT. 

STOP  RUN. 
0020-REAO-LI5T-RTM, 

READ  IM-PERSONNEL-HASTER-FILE 

AT  END 

MOVE  'ON"  TO  HS-HASTER-FILE-ECF-SWITCH 
GO  TO  0020-EXlT. 
IF  IHOI-HONTHS-OF-SERVICE, GREATER  THAh  75 

THEN 

HOVE  IMOl-NAME  TO  HS-DL-NAHE 
MOVE  IHOl-RANX  TO  HS-OL-RANK 

(HOVE  HS-Dl-MONTHS-OF-SERVICE  TO).  ^«»^^^Ss.^tWj^C>V-^5:C.\S.«:-«^ 
^<lllHOl-HCNTHS-OF-SeRVlCe  •'-^ 
WrTtE  O'ROT-TffTN'rER-TCD  FROK  WS-OcTAIL-LlNE 
AFTER  ADVANCING  2  LINES. 

0020-EXIT. 
fcXiT. 
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IBM  OS  ^HCRICAN  NATIONAL  STANCARO  £OB0L 


1 


00001 

00002 

00003 

0000^ 

00005 

00006 

00007 

00008 

00009 

00010 

OOOU 

00012 

00013 

OOOU 

00015 

00016 

00017 

OOOIB 

00019 

00020 

00021 

00022 

00023 

0002A 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

0003A 

00035 

00036 

00037 

0003B 

00O39 

000^0 

00041 

000A2 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 


lOEiNTIFIUTION 

AUTHOR. 

INSTALLATION. 

OATE-WRITTEN. 

OATF-CCHPILED, 

SECURITY. 
*<IEMARKS. 
* 
* 
* 

* 
* 


DIVISION.  ,-,«tce^Ai-iD. 

C0BSYN3. 

SP6  OH  GROSS. 

CSD,  USAIAi  FT  HARRISONi  IN  46216. 
MAR  3,  1978. 
JUN  21.1978 

UNCLASSIFIED.  ,  nu.r.nu 

THIS  PRUGRAM  PRODJCES  THE  DEPENDENT  INFDRMATION 
REPORT.  IT  LISTS  ALL  PERSONNEL  IN  THE  BATTALION 
WITH  5  OR  MORE  DEPENDENTS  BY  NAME,  RANK,  COMPANY, 
AND  SIZE  OF  FAMILY. 

HS-MASTER-FILE-EOF-SWITCH  IS  USED  TO  SIGNIFY 
WHEN  THE  END  OF  FILE  CONDITICJN  HAS  BEEN 
ENCOUNTERED. 

WS-TOTAL-OEPENDENTS  IS  USED  TO  ACCUMULATE  THE 
DEPENDENTS  FOR  THE  PURPOSE  OF  PRINTING  IT  IN 
THE  TOTAL  LINE. 


ENVIRONMENT  DIVISION. 

CONFIjiyRATION  SECTION.  r^^eu^Fl: 
SOUR<EC>HPUT£R.  IBM-360-H40.  ^oc.L<.C£~CC>'y^C^^li-^' 
OBJECWOHPUTfR.  IBM-360-H40, 
SPECIAL-NAMES. 

COl  IS  T0P-0F-PA6E. 
INPUT-OUTPUT  SECTION. 

FILE  CONTROL.  ^.  ^ 

SELECT  IM-PERSONNEL-HASTER-FILE 

ASSIGN  TO  UT-S-SYS006, 

SELECT  OR-PRINTER 

ASSIGN  TO  UT-S-SYS005. 

DATA  DIVISION.  ^«-r3r<w. 
FiC&CTION.  f^ica-secTTc^* 

FD  IH-PERSONNEL-MASTER-FILE, 
BLOCK  CONTAINS  1  RECORDS, 
RECORD  CONTAINS  80  CHARACTERS, 
LABEL  RECORD  IS  STANDARD, 


01 


DATA  RECORD  IS  IM01-PERS0ilNEL-MASTERj;RCU.  ^^.^^ 
IHOl-PERSD.NNEL-MASTER-RC(D  ^i^f'f^^  "^'^^ 


05  IMOl-OATTALION 

05  IMOl-COMPANY 

05  IHOl-SSAN 

05  IHOl-NAHE 

05  [MOl-PAY-GRAOE 

05  IMOl-RANK 

05  IMOI-ETS 

05  IffC-l-DATE-OF-ENIRY 

05  IMCI-MONTHS-OF-SFRVICE 

05  IHOl-NUMDER-OF-DEPENDENTS 
IHOI-PREVIOUS-ASSIGN-INFO 

FD  GR-PRINTER, 

ULDCK  CONTAINS  I  RECORDS. 
RECORD  CONTAINS  133  CHARACTERS, 
LABEL  RECORD  IS  STANDARD. 

I  5 


PIC  XX. 
PIC  X. 
PIC  9(9J. 
PIC  XU8I. 
PIC  XX. 
PIC  XXX< 
PIC  X(6I. 
PIC  XI6I. 

PlE_XXP  Tf' 
PIC~!(T29). 
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2 


00055 

00096 

0005T 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

oooeo 

00081 
00082 
00033 
00084 
00085 
00006 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
0009S 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
.  00106 
00107 
00108 
00109 

oouo 

00111 


ERIC 


DATA  RECORD  IS  OROl-PRINTER-RCO. 
01  OROl-PRINTER-RCD 
UORKING-STORACE  SECTION. 
77  HS-Lir4£-C0UNT£R 

VALUE  ZEROS* 
77  WS-TOTAL-OEPENDENTS 

VALUE  ZEaOS, 
77  MS-HASTER-FILE-EOF-SHITCH 

VALUE  'OFF*. 
01  WS-HEADIN6-LI!<E-l. 
05  FILLER 

VALUE  SPACES. 

05  FILLER 


PIC  XI5)) 
PIC  X(28) 


VALUE  'DEPENDENT  INFORMATION  REPORT' 
05    FILLER  PIC  X(52) 

VALUE  SPACES. 


01 

US- 

HEADING- 

LlNE-2. 

XI38) 

05 

FILLER 

PIC. 

VALUE 

SPACES. 

X|4<C) 

05 

FILLER 

PIC 

VALUE 

•NAME*. 

05 

FILLER 

VALUE 

SPACES. 

PIC 

XI18I 

05 

FILLER 

VALUE 

•RANK*. 

PIC 

X(4I 

05 

FILLER 

PIC 

XllO) 

VALUE 

SPACES. 

05 

FILLER 

VALUE 

•COMPANY*. 

PIC 

X(7) 

OS 

FILLER 

VALUE 

SPACES. 

PIC 

X(7I 

05 

FILLER 

VALUE 

•FAMILY  SIZE' 

PIC 

X(Il) 

05 

FILLER 

VALUE 

SPACES. 

'pic 

X(34) 

Pic  ^CyJ 


01  WS-OETAIL-LINE. 
05  FILLER 

VALUE  SPACES. 
05  HSrDL-M4^<£rp 
05    FILLER  ^""^ 

VALUE  SPACES. 

05  HS-OL-RANK 
05  FILLER 

VALUE  SPACES* 
05  WS-DL-COHPANY 
05    FILLER  ^ 

VALUE  SPAQfCt^ 
OS  HS-DL-rAMILY-SiZE  ' 
05  FILLER 


PIC  X(32) 

PIC  XliaO  i^S-O^-y^^-f^rf 
PICXUO) 

PICvXXX. 
PIC  X(14l 


PIC  X. 
PIC  X(15l 

PIC  ZZZ9. 
PIC  X(36) 


01  HS-TOTAL-LINE. 
05  FILLER 

05  FILLER 

05  FILLER 


PICcX(32) 


VALUE  SPACES. 
VALUE  SPACES. 

PIC  X(34| 

■VALUE  'TOTAL  NUMBER  OF  DEPENDENTS  NITHIN». 

PIC  X(1D) 
VALUE  'THE  BATTALION  IS*. 


00112 
00U3 
OOlU 
OOUS 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
0013) 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00 14  8 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 


05  US-TL-NUMBfcR-OF-B 
05  riLlSR 


:(>ENO 


PIC  ZZ9. 
PIC  X(46t 


Ct-> z.  -T(." ^^t*^ " 


VALUE  SPACES. 

PftOCtDURE  DIVISION. 
0010-DRIVER. 

OPEN  INPUT  IH-PCRSQNNEL-HASTEH-FILH 

OUTPUT  OR-PRINTER. 
PERFORM  0030-HEADINC-RTN  THRO  0030-EXlT, 
PERFURM  002G-REAO-MRITE-RTN  THRU  0020-EXIT 

UNTIL  WS-HASTER-£1L|-E0F-SWITCH  EUUAL  'ON'. 
HOVE  WS-TOTAL-0EPEK(Sm^TD  MS-TL-NUMBER-OF-OEPENOeNTS,     /}^e.'£  Ujt--i<fTAi. 
WRITE  OROI-PRINTER-RCtTTRGH  WS-TOTAL-LINE 

AFTER  ADVANCING  3  LINES. 
CLOSE  IM-PERSQNNEL-HASTER-FlLEi 
(JR-PR  INTER. 

0010-EXIT. 
EXIT. 

0020-READ-KKITE-RTN. 

READ  IM-PERSONNEL-MASTER-FILE 
AT  END 

HOVE  'ON*  TO  WS-HASTER-FILE-EOF-SHITCH 

GO  TO  0020-EXIT. 
ADD  IHGl-NUHBfcR-OF-OEPENDENTS  TO  HS-TOTAL-OEPENOENTS. 
IF  IHOI-NUMBFR-OF-OEPENDENTS  LESS  THAN  4 
THEN 

GO  TO  0020-EXIT. 
IF  WS-LINE-COUNTER  GREATER  THAN  15 
THEN 

PERFORM  0030-HEADING-RTN  THRU  0030-EXIT. 
HOVE  IHOl-NANE  TO  taS-DL-NAHE. 
KOVE  IHOI-RANK  TO  WS-OL-RANK, 
HOVE  IHOl-CDMPANY  TO  WS-DL-COHPANY. 

ADD  1,  IMOl-NUHBER-OF-OEPENOENTS  3IVING  WS-DL-FArtI LY-S  I2E. 

WHITE  OKOl-PRINTER-RCD  FROM  WS-OETAIL-LINE 
AFTER  ADVANCING  ?  LINES. 

ADD  I  TO  WS-LINE-CQUNTER. 
0020-EXIT. 

EXIT. 
0030-HEAOING-RTN. 

HOVE  0  TO  US-LINE-CQUNTER. 

WRITE  QROl-PRiNTER-RCD  FROM  WS-HEADING-LlNE-1 

AFTER  ADVANCING  TOP-GF-PAGE. 
WRITE  OROl-PRINTER-RCD  FROM  WS-HEADING-LINE-2 

AFTER  ADVANCING  3  LINES. 
0030-EXIT. 
EXIT. 
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CHECK  PROBLEM 


No. 


RvYTO 


ORBER  OS. 


SCHOOLCRA^T^ICHIGAN 


fdmdzoo 

SCHOOLCRAFT 


J9_ 


74-827 


J)OL.Lu\RS 


i:o7  2i,««ofi  e7i: 


EASE  BE  SUR6  TO  £fiDMCT  ANY  PER  CHECK  CHARGES  OR  SERVICE  CHARGES  THAT  MAY  APPLY  TO  YOUR  ACCOUNT 

CMCCK  NO 

DATE 

CHICKS  ISSUeO  TO 

on  OKscniPiiON  of  deposit 

{-) 

AMOUNI  OF  CHECK 

/ 

«-) 

CHECK 
FEE 

{*) 

AMOUNT  OF  OEPOSn 

BAlANCi 

4>956 

23 

119  . 

CASH 

$10 

00 

iti  10 

$946  . 

00 
23 

INDIANAPOLIS  POWER  A  LIGHT  COMPANY 

BOX  1393B 


f 

SI  IV. 

mi 

SMWU  0«T(S 

MEIU  DtMMNCS 

usu 

WWMT 

FMM 

TO 

PKinous 

PtCUT 

li 

PS 

09 

08 

FUEL 
I  KOI  A 

211 
CH/lRG 
NA  SA 

643 

f: 

LES  ta;< 

1{0<3 

1 
1 
1 
1 
1 
1 
1 

1 

tAii  MTumr  CMAK<  Aooto  MTH      ^-.2f!-7          ^  PqiAflv 

ERIC 


AUGUST.  197 


S  M 

T   W  T    F  S 

1    2    3   4  5 

6  7 

8    9  10  11  12 

13  14 

15  16  17  18  19 

20  21 

22  23  24  25  26 

|27  28 

29  30  31 

IA-01-01-16 


CHECK  PROBLEH  HIERARCHY  CHART 


m 

CONTROL 


1 

2010 
GET-READY 

2020 
WRITE- 
CHECK 

2030 
UPDATE- 
LEDGER 

2010 
FINISH-UP 
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IA-01-01-23 


PROGRAM  NAME:  J^iiLkm 


STUDENT  NAME: 
DATE:  1/1 


Dl 


MODULE  NUMBER:  i 
MODULE  NAME: 


PAGE   ^  of 


1  ofl 


INPUT 

PROCESS 

OUTPUT 

1,  ONPfllD-BILL 

PERFOffl  2818-GET-Hy, 

1,  PIIIO-BILL 

PERFOfiH  2a20-«R!TE-CHECK, 

PEPffl  2l3fl-yPD)lTE-LEDGER, 

PERFOffl  2i1fl-FINISH-llP, 

STOP, 

• 

  - — '  ■ 

PROGRAM  NAME:.  CffiCK  Pf 


STUOENTNAIllE; 
DATE:  mn 


Dl 


MODULE  NUMBER: 


MODULE  NAME:  Jl 


PAGE 


1.1  1 


IIIDIIT 

INPUT 

nnnpCCO 

rnuubSS 

nilTDMT 

OUTrUT 

1,  Mmmi 

opEi  mmiii 

1,  OPEPiPfllHlLL 

2,  CHECK-BOOK 

nnrM  nirn/  haa)/ 

OPEN  CHECK-BOOK, 

0    nncurri  mm/  Dnni/ 

z,  OPENED  CHECK-BOOK 

X    TAI  AliinCD 

f)  1  Dl  AMI/  ryrri^ 

EXIL 

2.2  CHECK-LEDGER 

7     TABAVP  nATC 

 ^  J  

iii'm-m-m-k 


TOR  INSTRUCTIONAL  PURPOSES  ONLY 


IA-{)l-{)l-23  :i 


PROGRAM  NAME: 


STUDENT  NAME;  !V 


mi  MA 


MODULE  NUMBER: 


MODULE  NAME: 


PAGE 


1  of  1 


IlirUI 

rnuicgo 

niiTPiiT 

uu  iru  1 

1,  OPEBCHEMOK 

ADD  1  TO  PREVIOOS-CK-BO. 

1.  illTEH-CEK 

1  1    Dl  AMI/  CUZCV 

Mn\/ir  Don/ifiiic  cuv  un  in  rurri/  un 

1  1  rucri/  f.in 
LI  IHLlNilU 

1,/  LnhU-LtUbtH 

Mn\/ir  Dill  DAVcc  in  rurri/  DAvcr 
nUvt  DlLLTAitt  iU  IntUTAitt. 

liZ  Lntu-UAlt 

1 1 1  PDn/iniiQ- 
LZ.i  rittviuuo 

riUVL  DILL  HnUUllI  IU  l/tlLU  HIHiiUllLt\lU 

1  7  fUFr^-PllYFF 

2.  lODflyS-DATE 

HOVE  BILL-fiMOONI  10  CHECK-M-flLPHil. 

L^l  CHECMlim 

wiAiir  TAHAVo  riATr  TA  rurri/  datc 

•/    riDQicn  iiWDAin  dim 

cifM  rucri/ 

1  h  1  fllk'-ilMT. 

MIIMFRir 
liUITIUl 

7  1   DTI  1  PUVFC 

FYIT 
lAIIi 

liti/.   v^^  rill  nLMin 

7  0   DTI  1  AMAIIMT 

1  c;  ^IfiMilTIIRF 

121- 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


IA-{)l-Ul-23 
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PROGRAM  NAME:. 
STUDENT  NAME: 


PO 


MODULE  NUMBER;  Jl 
MODULENAME:  MMOGER 


DATE:  JAN/9 


121413-14^1-^8N. 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


^  34 :j 


PAGE 


1  .il 


INPUT 

PROCESS 

OUTPUT 

< 

1  fHFfK 

PF  fflFfK-NQ  TO  1  FOGFR-rHK-Nf] 

1   IIPOATFI-I  FHfiFR 

1.1  fEWfl 

MOVE  CHFf^-MTF  TO  i  FDGFR-DATF 

1  1  IFOGFR-fl-NO 

11  CEK-MTF 

MOVF  fHFf^-PAYFF  TO  1  FHi^FR-PAYFF 

1  ?  1  FOfiFR-IlATF 

1.3  CHECK-PMEE 

■ail    '         V/llliiiVM     I  1  1  1  Wha 

HOVE  ClIEC^-m-RRIC  TO  LEDGER-M- 

L3  LEBfiER-P/iyEE 

OF-CNK. 

1.4  LEDGER-iT-OF-CHK 

oUDItvlU  LnN  HIlrliUllLRll  rt\Url  LuUXI\  ULU 

1     1  FUfnFRJFU-RAI  ANfF 

IIERIC 

MOVF  1 FOCFR-OI  \\M  llMfF  TO  1  Fnf;FR- 

llUVt,  LllLlilLl\  ULU  DnLHHl/L  lU  LLUullir 

IlLrDflL/lillLi 

^il  LlLIOli\  ULli  DnLnlll/ll 

FVIT 

IA-01-01-23  ) 


0 


PROGRAM  NAME: 


s}Ei  mm 


STUDENT  NAME  J 
DATE:  MB 


MODULE  NUMBER: 


MODULE  NAME:  FINIMP 
PAGE    1  of  1 


MT 

PROCESS 

niiTPiiT 

1,  OPEe  CHECK-BOOK 

REPE  illTEH  CHECK  FROU  CHECK  BOOK, 

1,  WRllTEN-CHECK 

2,  OPEB  illWlD-BlLL 

■  ■Anil                 1  f%AVn 

Nffl  BILL  mi 

I  CLOSED-CHECn-BOOK 

CLOSED  CHECK-BOOK. 

2,1  yPilED-LEDbER 

EXIT. 

7    nmn  DTI  1  , 

3.  PMD-BILL 

 -   

■  121-013- 


'FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


.-J)l-{ll-23 


CHECK  PROBLEM  MODIFICATION  HIERARCHY  CHART 


1000 
CONTROL 

2010 
GET-READY 

2020 
PROCESS 

2010 
FINISH-UP 

3! 

HR 

CHI 


I 
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PROGRAM.NAME 
STUDENT  NAME: 
DATE:  JMI79 


MODULE  NUMBER:, 
MODULE  NAME;  . 


PAGE 


1  of  1 


INPUT 

PROCcSS 

nilTOIIT 
UlilrUI 

1,  ONPAID-BILKS) 

PERFORM  231i-GET-READy, 

1,  "PfllD-BILL(S) 

PERFORN  2O-PR0CESS  UNTIL  OUT  OF  BILLS, 

PERFORM  20*FINISH-yP. 

STOP.  . 

\ 

« 

"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


lA- 


•24  i 


PROGRAM  NAME 
STUDENT  NAME: 
DATE:  Ml 


.  mnmw.'Xiwmm 


MODULE  NUMBER; 


MODULE  NAME: 


PROCESS 


PAGE 


1  .il 


INPUT 

PROCESS 

OUTPUT 

1,  ymiHiLL 

PERFORII  301fi-HRnE-CIIECK. 

1,  PAID-BILL 

PERFORPI 3H-0PDATE-LEDGER, 

EK.II, 

"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


9  ' 

ERIO 


CHECK  PROBLEM  MODIFICATION 

Now  that  you  have  solved  the  problem  of  writing  a  check  and  updating  the 
check  ledger  to  pay  a  bill,  you  wilV  modify  your  solution  to  follow  this 
process  until  you  have  payed  all  the  bills. 

You  will  assume  that  there  is  more  than  enough  in  the  account  to  cover 
any  and  all  bills  that  you  must  pay. 

To  accomplish  this,  you  must  redo  your  HIPO,  and  modify  or  create  new 
IPOs. 


1A-01-U2-22 


PROBLEfl  SOLVING  PE  #1  HIERARCHY  CHART 


2010 

2020 

GET- 

PROCESS 

READY 

r  1 

'    3030  ' 

;.  READ  ; 

L  J 


4010 

4020 

WRITE- 

WRITE- 

HEADER 

DETAIL 

PROGRAM  NAME: 


STUDENT  NAME:  JI'  '" 


MODULE  NUMBER:!^' 


MODULE  NAME: 


DATE:     FFR  n 


PAGE 


1  .fl 


INPUT 

Dnnptcc 

OUTPUT 

1.  PFRSOiEL-MASTER-FlLE 

PERFORN  2fll0-GET-REAiy, 

1,  PRIHTED-RhPOHl 

PERFORM  2e-P80CESS  DHTIL  EOF-Sll  =  'ON'. 

PERFORH  2»FimSH-yP. 

EOF-SW  'OFF'  OR  'ON' 

A<T*An  mill 

STOP  RUN. 

FOF-QU  =  'OFF' 
Lur  on  urr 

i  

121-013-U01-^8M 


"FOR  INSTRUCTION.  PURPOSES  ONLY" 


PROGRAM  NAME: 
STUDENT  NAME: 


MODULE  NUMBER: 


MODULE  NAME: 


fiET-HY 


date:  lELZl 


PAGE 


1  oil 


INPUT 


mm 


OUTPUT 


1.  CLDSEll 


OPEN  mj  PERSOIEL-HIISTER-FILF., 


SOiEL- 


WSTER-FILE 


OPES  OOTPUT  PRINT-FILE, 


WER-FILE 


2,  CLOSED  PP.INT-FILE 


WE  'OFF'  TO  EOF-SII, 


2,  OPENED  PRINT-FILE 


WE  'OFF'  TO  HEIIDER-SH, 


PERFORH  303il-REIID, 


EOF-SH 


EXIT, 


EOF-S«  =  'OFF' 


HEADER-SK 


•SN  =  'OFF' 


121-(13-lMl-W-». 
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PROGRAM  NAME:iR(mffllIllLELil 
STUDENT  NAME: 


MODULE  NUMBER: 


MODULE  NAME: 


PROCESS 


DATE:  EELZl 


PAGE  oi 


K,  1 


INPUT 


PROCESS 


OUTPUT 


PERFORN  3010-PE. 


PERFORM  3320-WRIIE-COflTROL. 


OIL 


•  I2l-013-I401-^8M 


'FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


FRir  * 


# 


I 


STUDENT  NAME:. 
DATE:     PFR  n 


MODULE  NUMBER:. 
MODULE  NAME:  FlfllSW 


PAGE 


1  ofl 


m 

PROCESS 

OUTPUT 

1,  OPENED  PEWNEL- 

CLOSE  PERSONNEL-ISTER-FILE, 

1,  CLOSED  PERSONNEL- 

iSTER-FILE 

WER-FILE 

2,  OPENED  PRINT-FILE 

CLOSE  PRINT-FILE, 

2,  CLOSED  PRINT-FILE 

EXIT, 

f 

1 

n\-m-m-m-k 
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PROGRAM  NAME: 
STUDENT  NAME:. 
DATE:     FEB  79 


MODULE  NUMBER 


:3l!lyi 


MODULE  NAME: 


.  MOVE 


PAGE 


1  .1 


INPUT 

PROCESS 

OUTPUT 

1  PERSOiEL-WSTER- 

MOVE  m-mi  10  DL-NWE. 

1,  FOmEB  DETML-Lii 

1.1  Pi-dW 

^  t  ^      1  1  U>   III  II  1^ 

NOVE  num  10  i-mi 

1,1  Mm 

U  Pfffi-RflilK 

lllll     1 II  Hill 

EXIT. 

1,2  DL-flE 

121- 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 
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PROGRAM  NAME:. 

STUDENT  NAME:  l^iinillCfl  

DATE:  fEjJ  


MODULE  NUMBER: 


MODULE  NAME: 


URITE-COBIROL 


PAGE 


INPUT 

PROCESS 

OUTPUT 

IF  HER-SW  =  'OFF' 

THEN  PEPfORH  Iiaj-HRIIE-HEIIDER 

mi  'Oil'  TO  HE8-SB 

ELSE  NEXT  SEIiTENCE, 

PERFORH  i2a-«RITE-DETIlIL, 

KR-S«  =  'OFF'  OR  'Oil' 

EXIT, 

HER-S«  =  'OFF'  OR  'ON' 

1!1-(13-1M1-J8(-A 


:i 


STUDENT  NAME:  _ 
DATE:     FEB  79 


.MODULE  NUMBER:  JJBl 
MODULE  NAME: 


PAGE 


1  0,1 


mm 


rngcEss 


OUTPUT 


1, 


-FILE 


1,  PERSOiEL-MR- 


E  'Oil'  TO  EOF-SH, 


EXIT, 


EOF-SW  =  'OFF'  OR  'ON' 


EOF-S«  =  'OFF'  OR  '01' 


pi-iin-i4ei-i)8N 


"FOR  WnONAL  PURPOSES  ONU" 


372 


ERJC  „ 


■if 


PROGRAM  NAME 
STUDENT  NAME: 


MODULE  NUMBER:  

ilTE-HEHDER 


MODULE  NAME: 


OATE:  £ELZ1 


PAGE 


hf  1 


IIIPUT 


PROCESS 


OUTPUT 


ilTE  HEMER-RECOSO  JFIER  MNCIi  10 


1, 


TOP  OF  PME, 


EKIT, 


1,  MEIi-RECORJ 
1,1  'RK' 
1.^  'M' 


!ir  12M13-14IIHl8«-f 


FOR  INSIRUCTIONAl  PURPOSES  ONLY' 


PROGRAMNAME:  PM  FH  !iOI  VlHfl  PF  fl 
STUDENT  NAME; 


MODULE  NUMBER:, 


MODULE  NAME: 


.  HRITE-BETAIL 


DATE:      FFR  7Q 


PAGE 


1  ofl 


INPUT 


],  FORM-DETML- 


PROCESS 


LINES. 


oyiPUT 


1.  IlETML- 


EXIT, 


PROBLEM  SOLVING  PE  #2 

The  records  section  here  at  Fort  Harrison  is  not  satisfied  with  the 
report  from  PE  #1.    They  have  as.ked  for  the  following  modifications. 

Count  the  lines  on  each  page  and  print  only  twenty  (20)  detail  lines 
on  each  page. 

Format  the  output  report  as  follows; 

FORT  HARRISON  PERSONNEL  LISTING 
RANK  NAME 

xxxxxxxxxxxxxxxxxxxx 
XXX  xxxxxxxxxxxxxxxxxxxx 

Print  the  heading  lines  at  the  top  of  each  new  page. 


PROGRAM  NAME:m£lMLEi2 


STUDENT  NAME: 


DATE:  FEB 


MODULE  NUMBER: 
MODULE  NAME;  '^'^l''''^-'''. 

PAGE     1  of  1 


INPUT 

PROCESS 

OUTPUT 

1    n  nccn  DCDcnMMCt 
1.  LLUShU  PhMfitL- 

Urtll  IrlrUI  m\oUf]HtL-i  AbltKTlLt, 

f'lASTER-FILE 

1  inO  1  Ll\   11  LL 

OPEM  OIM  PRII^T-FILE. 

MASTER-FILE 

2  OPEMED  PRIilT-FlLE 

Cl      vl  LtlLL/   1  1MI1I    1  ILL 

L  \     LLUOLU  1  IMIII   1  ILL 

MOVE  'OFF'  TO  EOF-SW, 

IIUVL  JJ  lU  LIML 

Lur  on 

PERFORM  3030-READ. 

1  LIM  vl\l  I  J\}JV  hLnUi 

ED^-SW  =  'OFF' 

EXIT. 

LIBE-CflTR  =  99 

121-^13-14^1- 


"FOR  INSTRUCTIONAL  PURPOSES  ONLV" 


IA-|5l-i)3-25 


ERiC 


PROGRAM  NAME 
STUDENT  NAME: 
DATE:  MM 


.nmwwm  PE  n 


D 


MODUU  NUMBER 


,3 


MODULE  NAME: 


.  URITE- 


FAGE 


1  .fl 


INPUT  j 

PROCESS 

1  IIU  v^WW 

OUTPUT 

ii 

tr  1  iMi:  rMTD  IC  r,DFfiTFR  THllN  1Q 
Ir  LlliL-lmK  10  IiKlHIiiK  \m  n 

I 

Tiimi  ncncfiDM  /lOllfil  UDITC  UFfiflFD 

THF.N  PEKrOHfl  TO-WHllt-ntai)tK 

MnvF  CI  in  1 INF-PNTR 

 —  

PERFORM  iffiWlTE-DETML, 

Lli-GITR  =  (tl) 

m  1  TO  Lli-CNTR, 

L1-CHTP.=  (N+')0R8 

W 

EXIT, 

I 

1  • 

06 


121-^13-14^1-08N 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


r 


PROGRAM  NAMEiIiilini 
STUDENT  NAME:. 
DATE:  fELZl 


MODULE  NUIISEA: 


MODULE  NAME 


PAGE 


1  oil 


INPUT 

PROCESS 

OUTPUT 

HRITE  HEflDER-RECORD-1  AFTER  ADVAtlCli  TO 

1,  HEADER-RECORO-l 

TflPflFPAfiF, 

ilTE  eOER-RECORD  AFTER  ADiNCING  2 

2,  HE^RECORl 

LINES, 

,  .  — ™  

EXIT, 

1,  eDER-RECOBD-l 

1,1  'FORTWISON 

PERSONNEL  LISTIN5' 

2,  HE/lllER-REM 

2,1  'RANK' 

2,2  'M' 

1 

350 


PROBLEM  SOLVING  PE  #3 


I  INTRODUCTION. 

The  Battalion  Headquarters  at  Fort  Harrison  has  asked  for  a  listing 
of  all  personnel  assigned  to  or  stationed  here  for  accountability 
purposes.    They  would  also  like  a  count  of  all  recor  j-i  listed. 


II  INPUT/OUTPUT. 


INPUT:  Input  will  consist  of  a  personnel  Master  file,  which  contains 
records  on  all  personnel  stationed  at  or  assigned  to  the  Battalion, 

Personnel  Master  Records; 

1.  SOCIAL  SECURITY  ACCOUNT  NUMBER 

2.  NAME 

3.  BATTALION 

4.  RANK 

5*.    NUMBER  OF  DEPENDENTS 


OUTPUT:    Output  will  consist  of  a  printed  listing  with  a  heading  at 
the  top  of  each  page.    Print  a  detail  line  for  each  record  read,  and 
a  total  line  showing  the  number  of  records  processed.    Write  20 
detail  lines  per  page  (double  spaced)  then  start  at  the  top  of  the 
next  page  with  the  header.    The  total  line  will  be  printed  only  once 
at  the  end  of  the  report. 


Format  the  output  report  as  follows; 

SSN  NAME  RANK  NR  DEPS 

999999999  xxxxxxxxxxxxxxxxxx  xxx  99 

999999999  xxxxxxxxxxxxX/cxxxx  xxx  99 

999999999  xxxxxxxxxxxxxxxxxx  xxx  99 


TOTAL  RECORDS  PRINTED  999 


EMC  121-G13-l/'r01-070-A 


1  385 


IA-Ol-04-02 


PfflLEM  SOLVING  PE 13 IIERWCIY  CWRT 


CONTROL 


I 


o  '2i-W3-Ufll-J8H 

ERIC 


PROGRAMNAME:miFH.^0iyir.PF  E 
STUDENT  NAME:. 
DATE:     FEB  79 


MODULE  NUMBER: 
n«ODULENAME: 


PAGE 


1  of  1 


INPUT 

PROCESS 

OUTPUT 

1.  PFRSnNfl-HKTFB- 

PFRFORN  9fllfl-liFT-llFM, 

1    PRINTFU-I  IQTIWf; 

Jj_JlMlJI._Llilll1l] 

FILE 

E0F-SH='OII', 

PERFORN  2ra-WRITE-T0TllL, 

PERFOffl  2M-FINISH-yP, 

EOF-SW  =  'OFF' 

STOP  m, 

EOF-SN  =  'ON' 

t 

"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


PMeRAMNAME:MEil!lILEEi3 
STUDENT  NAME: 


IPi 


DATE:  iELZl 


MODULE  NIMBER: 

MODULE  NAME:  -lEtHY 


PAGE 


1  of  1 


MPUT 

PROCESS 

OUIPUT 

1.  CMPFMNFI- 

OPENIMPIITPEMNNEL-m-FIIF. 

1,  OPEe  PERSONflEL- 

imSTER-FILE 

nHSTER-FILE 

2,  CLOSED  PBINT-FILE 

OPEN  OITPyi  PRINT-FILE,  ' 

2,  OPENED  PRItlT-FILE 

HOVE  99  TO  LINE-CNTR, 

HOVE  'OFF'  TO  EOF-SW, 

mi  I  TO  PERS-CNTR. 

LIIIE-CNTR 

PERFORH  3ra-READ, 

LINE-CNTR  --  99 

EOF-SW 

EXIT, 

EOF-SW  =  'OFF' 

PERS-Cm 

PERS-CNTR  =  3 

121-013-U^I-^8N 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


PR0GRAMNAME:MM1M 
STUDENT  NAME:  MML 


DATE:  fELZl 


MODULE  NUMBER:  2  

MODULE  NAME:  COUNf- 


PAGE 


1  ofl 


INPUT 

PROCESS 

OUTPUT 

Ann  1  TA  n^nr^  /^iliTn 

HDD  1  TO  mum. 

rr,ttrUKri  )/llW-nuVh, 

PERFORM  ^51951-WRITF-rnNTRni 

r  Li\i  \m  1  JvUi  n\Sl  \ l  U'li  1  i\uLi 

PFRFORM  ^51^^-IIFAIl 

\  L\\\  U|\II  fnJv  i\Lnlli 

PERS-CNTR  =  (N) 

EXIT. 

Lri  III 

PERS-CNTR  =  (N+1) 

"FOR  INSTRUCTIONAL  PURPOSES  ONLV" 


,IA-0l-iJ3-26  4 


PROGRAM  NAME:. 
STUDENT  NAME;. 


MODULE  NUMBER;  2JI2L_ 


MODULE  NAME: 


date:  FP/n 


PAGE   ^  of^ 


INPUT 


mm 


OUTPUT 


HOVE  mm  TO  imm. 

WRITE  T0TAL-L1HE  HFTER  MWII 2  LIMES, 
EXIT, 


1,  TOTHL-LINE 


1,  TOTAL-LIHE 


1,1  'TOTAL  RECORDS 

PRINTED' 

1,2  TOTAL-PERS 

PEDS-CNTR  =  % 


l21-^I3-l401-08U-A 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


0) 

in 

Ul 


FR?r).f 


STUDENT  NAME: 


MODULE  NUMBER: 


DATE:  iELZa. 


MODULE  NAME:  FIW1$I|-11P 

PAGE     1  of  1 


INPUT 


PROCESS 


OUTPUT 


1.  (IPFfD 


CLOSE  PEKSOmEL-HflSTEB-FILE. 


1.  CLOSED 


MR-FILE 


CLOSE  PRINT-FILE. 


2.  OPEBED  PRINT-FILE 


MSTER-FILE 


2.  CLOSED  PRINT-FILE 


"FOR  INSTRUCTIONAl.  PURPOSES  ONLY" 


•^1-^3-26  / 


ERIC 


PROGRAM  NAME:. 


STUDENT  NAME:  J_ 
DATE,  FE^/I 


MODULE  NUMBER:. 
MODULE  NAME:  . 


E 


PAGE   ^  of  ^ 


mm 

PDOCESS 

OUTPUT 

1,  PERSOiEL-mSTER- 

WE  m-m  TO  DL-SSII, 

1.  FOWTED-DEWIL-LINE 

RECORD  ■ 

WE  PI1R-NK  TO  DL-Nffi 

1,1  PHR-SSI 

MOVE  Plf-R«  TO  DL-R«IK, 

1.1  DL-SSN. 

1.2  PIIR-llE 

WE  PHR-i-DEPS  TO  PHR-i-DEPS, 

1.2  DL-NWE 

1,3  mm 

EXIT, 

1.3  DL-RANK 

\A  PHR-NR-DEPS 

lA  DL-NR-DEPS 

 1  _  

I2I-^13-14U1-^8M 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


,r.mM..«JBC8L[1  SOLVli  PE 13 

STUDENT  NAME: 

DAiEi  FEB/9 


.  MODULE  NUMBERi 


  (*) 

TODUIENAME:   HKlTE-COIffliOL  (j) 

m  1.(1  00 


MT 

PROCESS 

OUTPUT 

!F  LINE-CNTR  IS  GSEM  M 19  TNEN 

PERFORH  iMITI-NEADER 

WE  $  TO  LIIE-CNTR 

ELSE  m  SENTENCE, 

PERFORH  WB-iJTE-DETML, 

m  1  TO  LINE-Cm, 

LIl-CNTR  =  (N) 

EXIT, 

LItlE-Cm  =  (1+1)  OR  i 

• 

 12H13- 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


IA-^l-^3-26   ■  (j^  - 


ERIC 


'iOO 


11 


PR0GRAMNA«E;imE!JWi3 

Sra)ENTIIAME:J[UIflL__ 
DATE:     FEE  79 


PO 


MODULE  NUMBER:.  

MODULE  NAME: 


PAGE 


1.1 


INPUT 

PROCESS 

OUTPUT 

1.  PERSOiEL-fWSTER- 

m  PEONNEL-mSTER-FILE 

1,  PERSONMSTER- 

FILE 

AT-END 

RECORD 

HOVE  'Or  TO  EOF-SH, 

EXIT, 

EOF-SM  =  'OFF' 

EOF-S«  =  'OFF'  OR  'ON' 

1 

mi}, 


"FOR  I^Sl  RUCTIONAI,  PURPOSES  ONLY" 


:03 


PROGRAM  NAME: 


STUDENT  NAME: 


OATI:  mil 


MODULE  NUMBER 


MODULE  NAME:  1 


PAGE 


1  of  1 


INPUT 


PROCESS 


OUTPUT 


OF  mi 


k\  \\\ml 


DHL 


1,1 


low 


1.2  'IfflE' 


1.3 


1.^  'iDEPS' 


12H13-W01-^8N 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


««....««.MP.pmLgisoLviiPE^^ 

STUDENT  lUME:. 
DATE:     FEB  71 


MODULE  NUMBER: 


MODULE  NAME;  y^lTF-TOII 
PAGE    1  of  1 


niPOT 

PROCESS 

OUTPUT 

1.  FOWED  DETML-LINE 

WRITE  OETfilL-RECORO  AFTER  MNtlNG  2 

1.  mmum 

LINES, 

EXIT, 

o  .121-l»13-li{il-?fif^i. 

I-  K  1 1 


"FOR  INSTRUCTIONAL  PURPOSES  ONLV" 


36.  a. 


PROBLEM  SOLVING  PE  #4 

I  INTRODUCTION. 

The  Battalion  Headquarters  was  pleased  with  the  report  produced  from 
PE  #3  but  feel  they  could  better  use  the  report  with  the  following 
modifications. 

1.  Print  only  those  records  of  personnel  above  the  rank  of  PVl. 

2.  Print  an  additional  total  line  two  lines  below  the  one  now  being 
generated  which  contains  a  count  of  the  number  of  PVl's  on  the  Per- 
sonnel Master  File. 

Format  of  second  total  line  is  as  follows; 

TOTAL  NUMBER  OF  PVl  999 


121-0] 3-140X-070-A  ^  IA-01-04-10 

ERIC  40S 


PROGHAMN.M.miFH.^fil\/iriPPf.li 

STUDENT  NAME:  iuj 
DATE:     m  n 


MODULE  NUMBER 


MODULE  NAME: 

PAGE  ol 


IMDIIT 
InrUI 

DDnncoc 

OUTPUT 

HOVE  PERS-CIITS  TO  TOTAL-PERS, 

1,  TOTAL-LIIIE 

WRITE  TOTAL-LINE  AFTER  ADVANCiri  2  LINES, 

2,  TOTAL-LIi-2 

PE  PVI-CNTR  TO  TOTAL-PVl, 

1     TflTAI  1  IWC 

i,  lulAL-LlNt 

IJDITr  TOTAI  1  IMC  0  ACirO  flnUAMriHf;  0 

WKlit  HJIAL-Llllt"/  /^rlLH  RUVANLim]  Z 

1  1    /TATA!  nrrAnr^r^ 

1,1  TOlflL  RECORDS 

LINES, 

DDUiirn' 
rKlmtl) 

1,2  TOTaL-PERS 

0    TnTM  1  IMP  0 

■  .V 

Li   lulAL  MM  Ur 

rvi 

2,2  MAL-PVl 

rtt\o  tfllK  -  w 

m-m  --  (N) 

1 

121-013-U«)1-08N 


"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


ERIC 


PROGRAM  NAME: 
STUDENT  NAME:. 


DATE:     FEB  79 


PO 


MODULE  NUMBER:  2 


MODULE  NAME: 


T-PROCESS 


PAGE 


1  ofl^ 


INrUI 

OUTPUT 

1.  PERSONSEL-fWSIER-  . 

IF  PM1-I!AI=  'p\'r 

RlLOkIj 

TucM  Ann  1  tn  D\ii  pntd 

LI  P[1R"WI 

ri  tsr  AT^T^  i  TA  nrno  fMTO 

EL?^E  W  1  TO  PERS-CNIR 

rLi\rUf\l!  IIUvL 

rLf\rui\ll  yp\/i-\\L}\u, 

rLKb-lHlK  =  W 

CYIT 
tAll  1 

pCDc  fiiiTD  -  m  no  (w+i)- 

iLivo  Lnin          UI\  WVi) 

Pvl-CNIli  =  (fl) 

rvi  uiii\    viu  ui\  UFi/ 

• 

•', 

t 

I' 

;  1 

; ! 

'FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


1 


STUDENT  NAME:, 


Di 


DATE,  MA 


MODULE  NUMBER: 


MODULE  NAME: 


1  1 

PAGE  of 


INPUT 

PROCESS 

OUTPUT 

1.  CLOSED  PERSOiEL- 

OPEN  INPyj  PERSONIMSTER-FILE, 

1.  OPEyPERSORL-  ■ 

IM-FILE 

IWSTEKTlLt 

2,  CLOSED  PRINT-FILE 

OPEN  OyiPOT  PRIHT-FILE, 

2,  OPENED  PRINT-FILE 

H0VE99T0UNE-CNTR, 

HOVE  'OFF'  TO  EOF-SH, 

WE  S  TO  PERS-CNTR, 

LIHE-CillR 

PE  0 10  PVl-CNIR, 

EOF-sa 

PERFORN  m-m. 

EOF-SI  =  'OFF' 

PERS-CNTR 

EXIT, 

PERS-CNTR  =  0 

PVl-CNTR 

i 

* 

PVl-CNTR  =  fi 

"FOR  INSTRUCTIONAL  PURPOSES  ONLY" 


ERIC 


4i4 


SORT  EXERCISES 


1.  Code  the  jobstream  to  sort  a  file,  I/O  specifications  follow  (Use  1  sort 
work  area) : 


Media: 

Rec  Length: 

File  ID: 

Volume  of  Data 

Device: 

Control  Field 


Input 

Tape 

80/1600 

PERS-TX 

500  records 

TP0 

pos  8-15  (character 
data) 


Output 

Tape 

80/1600 

SORTED-PERS-TX 
500  records 
TPl 


2.  Assume  that  you  have  3  sorted  files  in  the  format  of  problem  1. 
jobstream  to  merge  them. 


Code  the 


3,     Code  the  jobstream  to  sort  the  following  files  ^(Use  2  sort  work  extents): 


Media: 

Rec  length/Blksize: 
File  ID: 
Volume  of  data: 
Device: 

Volume  Serial  Nr: 
Retention: 
Control  fields: 

MAJOR: 

INT  1 

INT  2 

MINOR 


Input 1 
Tape 
100/1000 
LOG-MSTR 


Input2 
Tape 
100/1000 
LOG-TEMP 


20000  records  30000  records 


TPl 
N/A 
N/A 

8-20,  char 

29-  30,  char 
24 ,  char 

30-  36,  char 


TP0 
N/A 
N/A 


Output 

Disk 

100/7000 

SORTED-LOG-MSTR 

50000  records 

DK4 

LOG  PAK 
3  months 


121^013-1420-070-A 
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3(^1 


STRUCTURED  FLOWCHARTING  SYMBOLS 


The  flowcharting  symbols  defined  in  this  handout  are  to  be  used  in  conjunc- 
tion with  the  Verbs  defined  in  the  COBOL  SOURCE  DESIGN  LANGUAGE  handout. 
This  handout  does  not  contain  all  of  s^mibols  that  can  be  used  in  structured 
flowcharting  but  is  limited  to  those  s^mibols  that  will  be  used  in  the 
problem  solving  block  of  instruction. 


SYMBOL 


PROCESS  SYMBOL 


PREDEFINED 
PROCESS, SYMBOL 


DECISION 


The  process  symbol  may  be  used  to  represent  the 
ADD,  CLOSE.  OPEN.  MOVE  or  NEXT  SENTENCE.  This 
symbol  requires  one  entry  and  one  exit. 


The  predefined  process  symbol 
to  represent  a  PERFORM.  This 
one  entry  and  one  exit. 


may  be 
symbol 


used  only 
requires 


The  decision  symbol  may  be  used  only  to 
represent  the  IF-THEN-ELSE.    This  symbol 
requires  one  entry  and  two  exits,  one  THEN 
exit  and  one  ELSE  exit. 


PUNCHED  CARD  The  punched  card  symbol  may  be  used  to 

I   represent  a  READ  for  an  input  punched  card 

file  or  a  WRITE  of  a  punched  card  record. 
When  used  for  a  read  it  will  have  one  entry 

  and  two  exits.    When  used  for  a  write  it  will 

I  -  have  one  entry  and  one  exit. 


ERIC 


IA-01-04-11 


416 


SYMBOL 
DOCUMENT 


USE 

The  document  symbol  may  be  used  only  to  represent  a 
WRITE  to  a  printer.  This  symbol  requires  one  entry 
and  one  exit. 


MAGNETIC 
TAPE 


ONLINE  STORAGE 


The  magnetic  tape  symbol  is  used  in  the  same  way  as 
the  punched  card  symbol  except  where  the  storage 
media  is  magnetic  tape. 


The  online  storage  symbol  is  used  in  the  same  way  as 
the  punched  card  symbol  except  where  the  storage 
media  is  a  disk. 


INPUT/OUTPUT 


The  input/output  symbol  is  used  in  the  same  way  as 
the  punched  card  symbol  except  where  the  storage 
media  is  unknown. 


TERMINAL 


ERIC 


The  terminal  symbol  is  used  to  show  the  beginning 
and  ending  point  of  each  routine.    It  will  contain 
the  module  number  and  name  or  the  word  EXIT  or  STOP 
RUN.    This  symbol  requires  either  one  entry  or  one 
exit  but  not  both. 


IA-Ol-04-11 


417 
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SYMBOL  

ON  PAGE  CONNECTOR 


USE 

The  on  page  connector  symbol  is  used  to  connect  two 
parts  of- the  same  routine  which  are  drawn  separately 
on  the  same  sheet  of  paper. 


OFF  PAGE  CONNECTOR 


The  off  page  connector  symbol  is  used  to  connect  two 
parts  of  the  same  routine  which  are  drawn  separately 
on  separate  sheets  of  paper. 


When  using  the  PUNCH  CARD,  MAGNETIC  TAPE,  ONLINE  STORAGE  or  INPUT/OUTPUT 
symbol  for  a  READ,  you  will  always  show  the  AT  END  associated  with  it  as 
follows:  (See  page  4) 

For  an  illistration  of  the  use  of  an  IF-THEN-ELSE  and  a  compound 
IF-THEN-ELSE  see  page  5. 


ERIC 
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Flowcharting  WorkihMrt         ron  instrocticnal 


PURPOSES  CHLT 


  Proarom  No-? 

OxMt  ID:  

Chart  Nom»:, 

READ  routine  structured  flowcharts  pmQ„^ 

c 


c 


J 


AT  Enn 


c 


3 


PAGE  4  IA-01-04-11 
FOR  IKSTRUCTIOML  PURPOSES  OKIY  ,,7. 


419 


311 


3iMi  PInwcharting  WoricihMt  HQTuroncmL  PtmposEa  ohlt 


Program  No.:, 


Qwrt  iDt  Chort  Noww!  lF>7tiFN-FI  i^F  ^»r»»r»,.>^d  f  towrhai^f      Progrom  Noma:. 


Data.  Jan  79  Page;_L 


THEN 


T 


ERIC 


c 


CZ3 


ELSE 


THEN 


ELSE 


o 


THEN 


420 


c 
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UTILITY  EXERCISES 


1.  Code  the  jobstream  to  copy  a  deck  of  cards  to  tape.    Columns  21  and  30 
must  be  Interchanged  on  the  output  tape,  additionally  columns  71-80  must  be 
switched  with  columns  1-10.    All  other  columns  remain  the  same.    The  output 
tape  must  have  20  records  per  block  and  should  be  unloaded  at  EOJ, 

2.  Code  the  Jobstream  to  list  a  file  on  disk.    The  file  is  on  tracks 
80-200  on  pack  DATA19.    The  records  on  disk  are  100  bytes  long  and  blocked 
20  records  per  block.    The  listing  should  be  single  spaced.    A  2314  disk 
will  be  used.     The  file-ID  of  the  disk  file  is  'MOD  WORKOUT'. 

3.  Write  the  jobstream  to  punch  cards  from  a  disk  file.    The  file  is  called 
'PAY  RECORDS'  and  is  on  pack  PAYPAC  (omit  extent  info).    The  records  are 
120  bytes  blocked  by  20.     The  first  40  and  last  40  bytes  make  up  the  80 
columns  of  output  data.    The  first  1500  records  should  be  bypassed. 

4.  Write  the  jobstream  to  print  the  cards  punched  in  problem  3.    All  80  bytes 
are  to  be  printed  with  the  output  having  5  spaces  between  each  group  of  40 
bytes  (i.e.:     40  bytes  5  spaces,  40  bytes).    The  listing  should  be  double 
spaced  with  page  numbers. 

5.  Write  the  jobstream  to  load  a  tape  file  to  disk.    The  input  file-ID  ia 
•A01ABC  TRANS'  and  the  record  length  is  100  blocked  by  30.    The  output  file 
Is  stored  on  pack  DLOG01  with  extents  and  file-ID  determined  by  the 
programmer.    Output  retention  is  one  month. 

6.  Write  Che  Jobstream  to  copy  a  tape  file.     Input  tape  is  'PAY  FILE' 
created  on  6  Jan  and  is  90  bytes  per  record  blocked  by  10.    Output  should  be 
blocked  by  30  and  be  retained  3  months.     Input  file  ia  generation  5,  output 
Ls  generation  6. 
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UTILITIES  P.E. 


The  PSNCO  of  your  unit  has  brought  you  a  deck  of  cards  that  he  wants  listed. 
The  format  for  these  cards  is  attached.    The  cards  represent  all  enlisted 
personnel  in  the  battalion.    He  does  not  know  the  current  sequence  of  these 
cards,  but  he  requires  the  output  to  be  printed  in  sequence  according  to  the 
print  record  layout  below.    Code  the  jobstream  that  will  sort  the  cards  and 
print  them  according  to  the  customer's  desires. 

KOTES: 

1.  The  SORT  program  will  not  read  cards  or  print  so  two  utility  programs  are 
required;    one  to  transfer  the  card  data  to  disk  and  another  to  print  the 
sorted  file. 

2.  Use  I  sort  work  file  on  disk^ 

3.  Use  ADAS  JCL  for  all  disk  files  (Volume  serial  no  =  SYSWRK) . 


Field 

Sequence 

Card 

Print 

Social  Security  Number 

1- 

9 

N/A 

Name 

Minor;  A 

11- 

30 

21- 

40 

MOS 

32- 

■38 

42- 

48 

Grade 

Int;  D 

40- 

■42 

50- 

52 

Company 

Major;  D 

44 

14 

Date  of  Rank 

46- 

■51 

56- 

■61 
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Ditto  is  used  throughout  this  documentation  in  lieu  of  the 
program  title*  "DOS  Interfile  Transfer  and  Manipulator  Program 
For  Aid  In  Testing  and  Operations." 
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PROGRAM  ABSTRACT 


DOS  Interfile  Transfer  And  Manipulator  Program  For  Aid  In  Testing  And  Opera- 
tions -  (DITTO),  is  a  generalized  program  which  operates  in  a  DOS  environment. 
Thirty-three  (33)  functions  are  available  to  support  Unit  Record,  Tape  and 
2311  and  2314  Disk.    Functions  available  in  addition  to  normal  tape,  disk  and 
card  functions  are:    Tape  and  Disk  Record  Scan,  Disk  and  Tape  ^Icnord  Altera- 
tion, Disk  ID  Volume  Number  Change,  Initialize  Tape,  Deblocking  of  Tape  and 
Disk  Records  When  Printing,  and  User  Tape  Error  Handling. 

Operating  Characteristics  Are: 

1.  The  program  is  self-relocating  to  allow  operating  in  any  partition.  Tape 
and  Disk  record  size  is  limited  only  by  the  amount  of  core  available  at 
execution  time. 

2.  Operations  may  be  performed  entirely  from  the  console  or  function  card 
statements  may  be  job-streamed  for  remote  programmer  use- 

3.  All  console  communication  is  in  terms  of  physical  hardware  I/O  addresses, 
eliminating  the  need  for  knowledge  of  current  logical  assignments.  Tape 
density  and  mode  settings  may  be  entered  via  the  console « 

4.  DITTO  functions  in  a  DASD  file  protected  environment  without  volxime 
label  statements.    Printed  output  reflects  the  physical  and  logical  addresses 
and  file  characteristics  (density,  etc.)  of  the  input  file. 

5.  Minimum  requirements:    System/360  DOS  System  with  a  1403  Printer  and  a 
minimum  14K  problem  program  area.    The  program  is  written  in  Assembler  lang- 
uage. 

DESCRIPTION  OF  FUNCTIONS 


Disk  Print 

2311  or  2314  Disk  to  Printer  in  character  and  vertical  format  within  speci- 
fied limits.    Disk  records  are  "separated"  into  key  and  data  format  and  print- 
ed with  their  associated  cylinder,  head,  and  record  addresses.    When  a  defec- 
tive track  is  detected,  the  assigned  alternate  track  with  its  respective  data 
Is  printed.    This  provides  a  sequential  listing  of  the  disk  file  in  "logical" 
sequence. 

Two  Disk  to  Printer  formats  are  available:    Disk  Dump  Unblocked;  and  Disk 
Dump  with  Reblocking.    The  Unblocked  format  lists  the  actual  records  as  they 
exist  on  the  file.    The  Reblock  function  allows  the  user  to  submit  a  logical 
record  size.    This  size  parameter  should  be  equivalent  to  the  actual  logical 
record  length  only,  and  should  not  include  separate  key  length.  Imbedded 
keys  should,  however,  be  Included.    The  Reblock  function  lists  the  record  key 
and  then  deblocks  the  data  portion  o£  the  record  into  logical  lengths.  This 
CSD.SFtf.DIT10  3 
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provides  a  more  easily  iised  listing  of  large  physical  record  files. 

The  Reblock  function  Is  primarily  Intended  for  use  on  sequential  or  random 
files.    Because  of  the  different  Jormats  present  on  Index  sequential  files, 
reblocklng  may  not  be  meaningful  for  overflow  areas  or  cylinder  and  track 
Indices. 


1 

Disk  Record  Scan 


Disk  Record  Scan  provides  the  capability  of  scanning  a  disk  file  and  record-  . 
ing  the  locations  of  all  records  which  match  a  given  scan  argument.  Three 
p)  scan  argument  types  are  available* 

"Scan  on  Key"  allows  the  user  to  scan  for  a  match  on  any  portion  of  the  disk 
record  key  fields.    A  1  to  35  position  scan  argument*  and  its  associated 
starting  position  within  the  key  field,  are  entered  via  the  console.  Begin- 
ning and  ending  disk  limits  are  also  entered.    DITTO  will  scan  the  specified 
disk  area  and  log  all  "hits"  in  the  form  of  cylinder,  head  and  record  numbers 
on  SYSLOG. 

"Scan  on  Data"  provides  a  similar  capability  for  the  data  portion  of  disk 
records.  A  logical  record  length  must  be  specified  to  allow  internal  de- 
blocking for  scanning  blocked  files. 

"Scan  on  EOF"  will  log  all  End  of  File  record  locations.    Data  entry  for 
"EOF"  la  not  required. 


Disk  Record  Load 


This  function  will  alter  the  contents  o*'  the  key  and/or  data  portion  of  an 
existing  2311  or  2314  Disk  Record.    Aftc     the  required  disk  unit  and  record 
addresses  have  been  entered,  the  record  will  be  retrieved  and  "separated" 
into  key  and  data  format  and  printed  on  SYSLST. 

At  this  point,  DITTO  will  request  the  number  of  bytes  to  be  changed  and  the 
field  type  (Key  or  Data  portion  of  the  record)  to  be  altered.    After  specify- 
ing these  parameters,  a  starting  position  within  the  field  will  be  requested. 
This  starting  position  is  based  on  using  the  first  position  of  the  key  or 
data  as  position  "0001".    The  user  can  verify  this  position  by  referencing 
the  printout  of  the  record  and  its  associated  scale  on  SYSLST.    Data  may  be 
entered  via  the  console  in  character  (1  character  per  byte  of  change),  or 
hexidccimal  (2  characters  per  byte  of  change).    Valid  hexidecimal  "characters" 
are  0-9  and  A  through  F. 

After  all  alterations  to  the  record  in  core  have  been  made,  the  altered  re- 
cord will  again  be  printed  on  SYSLST  and  a  message  issued  "ARE  CHANGES  COM- 
PLETE -  Y  OR  N.  •    A  response  of  "N"  (NO)  will  allow  the  user  to  re-enter  the 
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alter  routine.    A  response  of  "Y"  (YES)  will  rewrite  the  record  onto  disk. 


Write  Disk  End-of-Flle  Record 


This  function  will  retrieve  any  exisrlng  2311  or  2314  Disk  Record  and  re- 
write the  record  as  an  end-of-flle  record  (key  and  data  length  of  zero). 
Tlie  user  must  supply  the  cylinder ,  head»  and  record  address  of  the  record  to 
be  altered. 


Split  Cylinder  Disk  Organizations 

Split  cylinder  data  file  organizations  are  supported  by  DITrO  for  the  Disk 
Dump  Unblocked  (DDU) ,  Disk  Dump  Reblocked  (DDR) >  and  the  Disk  Record  Scan 
(DRS)  functions.    Split  cylinder  operations  are  denoted  by  replacing  the 
first  D  in  the  above  function  codes  with  an  S.    For  these  split  cylinder 
operations,  the  beginning  and  ending  head  addresses  will  determine  the  lower 
and  upper  head  boundaries  for  the  function. 

Disk  Identification  Change 

This  function  will  print  on  SYSLOG  the  existing  disk  volume  serial  number  and 
allow  the  user  to  enter  on  SYSLOG  a  new  volume  serial  number. 


Initialize  Tape 

Initialize  tape  using  the  standard  DOS  format  with  a  tape  volume  serial 
number  entered  via  the  console.    Existing  tape  labels  or  data  on  the  output 
tape  is  not  checked  before  creating  the  new  label  set. 


Tape  To  Tape 

Tape-to-tape  copy  Including  tape  marks.    This  function  will  copy  from  1  to  99 
tape  files  per  volume  as  requested  via  the  console.    One  file  will  be  copied 
per  control  card  if  console  operation  is  not  being  used.    The  first  file 
copied  may  or  may  not  have  a  leading  tape  mark.    A  leading  tape  mark  does  not 
itself  constitute  a  separate  file.    Block  count  statistics  will  be  printed  on 
SYSLST  for  control  card  operation,  and  on  SYSLOG  for  console  operation,  for 
each  tape  file  copied. 
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Tape  Record  Load 

This  function  la  used  to  copy  and  selectively  alter  existing  tape  records. 
The  user  need  not  know  the  exact  location  (block  #)  of  the  Input  tape  record 
to  be  altered. 

The  first  portion  of  the  Tape  Record  Load  function  locates  the  desired 
record.    The  user  enters  an  estimated  block  location  and  the  parameter  ^*F** 
to  denote  copying  of  tape  In  a  forward  position.    When  the  desired  record  la 
found » It  Is  printed  on  SYSLST  and  an  option  given  to  alter  the  record.  All 
Input  records  prior  to  the  record  to  be  altered  have  been  copied  onto  the 
output  tape.    If  the  printed  record  Is  not  the  desired  record »  the  user  can 
again  enter  the  9  of  blocks  and  direction  to  reposition  the  Input  and  output 
tapes.    If  the  user  has  gone  past  the  desired  record »  a  parameter  of  "B" 
should  be  entered  with  a  block  count.    This  will  cause  both  Input  and  output 
tapes  to  be  backspaced  the  required  number  of  blocks,    'rhls  count  Includes 
the  block  Just  prlated.    When  the  desired  record  Is  located*  the  user  may 
alter  the  length  and/or  data  content  In  a  manner  similar  to  the  Disk  Record 
Load  function.    After  all  alterations  are  completed >  replies  of  "9999"  and 
iipH  (9999  blocks  to  be  copies  In  a  forward  direction)  will  usually  be  suffi- 
cient to  finish  copying  the  tape  file. 


Tape  Record  Scan 

This  function  allows  the  user  to  specify  a  logical  record  Pize  and  a  1  to  35 
position  scan  argument  for  an  input  tape.    DITTO  will  read  and  Internally 
deblock  input  records  until  the  desired  record  is  located.    At  that  time  the 
entire  physical  record  with  its  associated  block  number  will  be  printed  and 
the  operation  terminated.    The  tape  will  not  be  rewound. 


Tape  Print 

Four  printing  formats  are  available  for  input  tapes.  Tape  data  may  be  print- 
ed in  character  format  only,  or  in  character  and  vertical  hex  format.  Physi- 
cal tape  records  may  be  printed  as  they  exist  (unblocked)  or  may  be  deblocked 
into  logical  records*  Block  and  record  counts  are  printed  with  the  associat- 
ed records. 

For  control  card  operation*  an  optional  NBLKS"nnnn  parameter  may  be  specified, 
"nnnn"  specifies  the  maximum  number  of  physical  tape  record  blocks  to  be 
printed.     If  "nnnn"  is  greater  than  the  existing  number  of  blocks  in  the 
tape  file 9  only  the  existing  tape  file  wJll  be  printed.    A  leading  tape  mark 
will  be  automatically  skipped. 
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Print  SYSLST  Tapes 

Tape  to  printer  unblocked  using  the  first  position  of  the  tape  record  as  the 
carriage  control  character.    Two  carriage  control  formats  are  available. 
Type  A  forms  control  (TFA)  uses  the  carriage  control  character  as  the  CCW 
operation  code.    DITTO  performs  its  printing  using  Type  A.    Type  D  forms  con- 
trol (TFD)  is  used  by  DOS  for  compiler  listings,  etc. 


Tape  Control 

Eight  tape  control  functions  are  available  either  by  control  cards  or  console 
communications.    These  control  functions  are:    write  tape  mark;  rewind  tape; 
rewind  and  unload  tape;  forward  space  or  backspace  file;  forward  space  or 
backspace  records;  and  erase  record.    The  erase  record  will  remove  approxi- 
mately 4"  of  tape  data. 


Card  To  Tape 

Card  image  to  tape  with  or  without  reblocking.    Job  control  cards.  Including 
/*  and  /&  cards,  may  be  interspersed  in  the  input  data  (see  Card  Input 
Assignment).    A  tape  mark  will  be  written  after  thfe  last  card  block  on  the 
tape  file. 


Tape  To  Card 

Tape  to  card  for  blocked  or  unblocked  80  character  logical  records.    A  lead- 
ing tape  mark  will  be  bypassed  If  present.    If  the  input  tape  record  is  not 
a  multiple  of  80  bytes,  the  function  will  terminate. 


Card  To  Printer 

Cards  may  be  listed  on  SYSLST  in  either  character  or  character  and  vertical 
hex  format.  Job  Control  cards  including  /*  and  /&  statements  nay  be  inter- 
spersed in  the  input  data  (see  Card  Input  Assignment). 


Card  To  Card 


Two  card  to  pui.ch  options  are  available.    CCU  is  an  80/80  reproduction  of 
the  input  cards.    CCS  is  a  card-to-card  copy  with  sequence  numbers  and  deck 
identification  name  added.    Three  decktypes  are  available. 
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DECKTYPE-COB  is  used  to  sequence  and  name  COBOL  source  decks.  Sequence 
numbers  will  be  placed  in  CC  1-6  and  a  0-8  position  deckname  placed  in 
CC  73-80. 

DECKIYPE-RPG  is  used  for  RPG  source  decks.    Sequence  numbers  will  be 
placed  in  CC  1-5  and  a  0-6  position  deckname  placed  in  CC  75-80. 

DECKTYPE-BAL  is  used  for  Assembler  and  FORTRAN  Source  decks »  Job  Con- 
trol decks,  etc.    Sequence  numbers  will  be  placed  in  CC  77-80  and  a 
0-4  position  deckname  placed  in  CC  73-76. 

Decknames  will  be  left-Justified  and  padded  with  blanks  if  less  than  the  re- 
quired length.    /*  find  /&  cards  may  be  interspersed  in  the  input  data  (see 
Card  Input  Assignment). 


End  Of  Job 


All  functions,  whether  control  card  or  console  initiated,  must  issue  the 
function  code  "EOJ"  to  return  control  to  Job  conttol.    For  control  card  oper- 
ations, this  "EOJ"  card  must  be  the  last  function  requested. 


Tape  Errors 


All  tape  errors  will  initially  be  handled  by  the  DOS  supervisor.    For  input 
tape  errors  that  are  uncorrectable,  DITTO  will  transfer  control  to  a  console 
routine.    This  routine  will  display  the  record  as  read,  and  allow  the  opera- 
tor to  accept,  bypass,  or  alter  the  data  and/or  length  of  the  tape  record 
before  returning  control  to  the  original  operation.    This  option  is  not  avail- 
able for  remote  programmer  control  card  operation. 


Card  Input  Assignment 


If  the  user  does  not  desire  to  include  /*  and/or  /&  cards  as  a  part  of  his 
input  data,  noimal  DOS  procedures  should  be  followed.    For  control  card  oper- 
ations, the  end  of  the  input  deck  is  signaled  with  a  /*  card.    This  will  de- 
note end-of-file  for  the  particular  operation  and  is  consistent  with  DOS 
operating  procedures.    Thie  /*  card  may  be  followed  with  additional  DITTO 
operations  in  a  similar  nianner.    Operations  which  do  not  require  data  card  In- 
put should  not  contain  a  /*  card.    The  last  DITTO  operation  must  be  an  EOJ 
card  and  should  be  followed  by  a  /*  card  If  other  DOS  job  steps  follow,  or  by 
a  /&  card  If  a  new  job  is  to  be  initiated  by  Job  Control.    Console  operations 
for  data  card  input  may  be  performed  in  a  similar  manner.    For  console  opera- 
tions which  do  not  have  a  stacked  job  input  stream,  /*  and  /&  cards  may  be 
omitted.    End-of-file  on  card  input  will  be  denoted  by  physical  end-of-file 
on  the  input  device. 
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The  DOS  Supervisor  monitors  all  cards  read  by  the  problem  program  from  SYSIPT 
or  SYSRDR.    If  the  problem  program  attempts  to  read  past  a  /&  stat^ament  using 
either  of  these  system  logical  unlts»  the  Supervisor  cancels  the  job.  The 
Supervisor  does  not,  however »  monitor  data  from  a  programmer  logical  unit.  To 
read  /&  statements,  DITTO  mu8t>  therefore,  read  card  Input  data  from  a  pro- 
grammer logical  unit. 

The  Inclusion  of  /*  and  /&  cards  In  the  input  Is  available  under  console  oper- 
ation only.    To  initiate^ a  card  input  operation  with  /*  and/or  /&  cards  in  the 
Input  data,  the  operator  must  substitute  an         for  the  first  "C"  in  the  func- 
tion code  (i.e.  CCS  becomes  &CS}.    A  blank  card  in  the  Input  stream  denotes 
end-of-file. 


CONTROL  CARD  OPERATION 

If  the  user  wishes  to  remove  the  decision  requirements  from  the  console  opera- 
tor, he  may  prepare  control  cards  and  submit  the  task  in  a  normal  Job  Stream 
environment . 

To  denote  control  card  operation  the  user  must  submit  between  the  Job  card  and 
Exec  card  a  //  UPSI  1  card.    DITTO  will  teat  the  communications  region  to 
determine  whether  control  card  or  console  operation  is  desired.  Depressing 
the  interrupt  key  at  any  time  overrides  the  control  card  option. 

The  required  control  card  information  can  be  contained  on  one  card.  Each 
control  card  is  treated  as  a  new  operation.    The  control  card  format  la  as 
follows: 

CC  1    -7  $$DITTO 

CC  10  -12       Funce:lon  Code  (see  table) 

CC  16  Parameter  1,  , Parameter  N 

Parameters  are  in  standard  key  word  format.    Each  parameter  must  be  separated 
with  a  comma  with  no  embedded  blanks.    A  blank  stops  the  card  scan.  Lower 
case  letters  denote  user  implied  Information.    Parenthesis  ()  denote  optional 
parameters.    Refer  to  the  "Parameter  Requirements**  for  a  listing  of  parameters 
associated  with  each  function. 

Parameter  Description 

INPUT-SYSnnn  Logical  input  device 

OUTPUT- SYSnnn  Logical  output  device 

BEGIN-ccchh  Lower  disk  extent 

END-ccchh  Upper  disk  extent 

NBLKS-nnnn  Number  of  tape  blocks 

RECSIZE-nnnnn  Logical  record  size 

BLKFACTOR-nnn  Output  blocking  factor  (CTR) 

DECKTYPE-xxx  CCS  decktype 

DECKNAME-x. . . .X  CCS  deckname  (0-8)  characters.    Decknames  which 

are  less  in  length  than  required  will  be  left 
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CC  1-7 

CC  10-12 

$$DITTO 

DBU 

$$DITTO 

DDR 

$$DITTO 

SDU 

$$DITTO 

SDR 

$$DITTO 

TPU 

$$DITTO 

TPR 

$§DITTO 

THU 

$$DITT0 

THR 

$$DITTO 

TFA 

$$DITTO 

TFD 

$$DITTO 

TCR 

$$DITTO 

CTU 

$$DITTO 

CTR 

$$DITTO 

TTU 

$$DITTO 

WTM 

$$DITTO 

REW 

$$DITTO 

RUN 

$$DITTO 

FSF 

$$DITTO 

BSF 

$$DITTO 

FSR 

$$DITTO 

BSR 

$$DITTO 

CPU 

$$DITTO 

CHU 
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Justified  and  padded  with  blanks. 
PARAMETER  REQUIREMENTS 
C  16 

INPUT-SYSnnn , BEGIN-ccchh , END-ccchh 

INPUT-SYSnnn, BEGIN-ccchh , END-ccchh , RECSIZE-nnnnn 

INPUT-SYSnnn , BEGIN-ccchh, END-ccchh 

INPUT-SYSnnn , BEGIN-ccchh , END-ccchh , RECSIZE-nnnnn 

INPUT-SYSnnn (,NBLKS-nnnn  ) 

INPUT-SYSnnn , RECSIZE-nnnnn ( , NBLKS-nnnn  ) 

INPUT-SYSnnn (,NBLKS-nnnn  ) 

INPUT-SYSnnn , RECSIZE-nnnnn ( , NBLKS-nnnn  ) 

INPUT-SYSnnn 

INPUT-SYSnnn 

INPUT-SYSnnn 

OUTPUT-SYSnnn 

OUTPUT-SYSnnn , BLKFACTOR-nnn 
INPUT-SYSnnn , OUTPUT-SYSnnn 
0^  UT-SYSnnn 
OUTPUT-SYSnnn 
OUTPUT-SYSnnn 
OUTPUT-SYSnnn 
OUTPUT-SYSnnn 
OUTPUT-SYSnnn , NBLKS-nnnn 
OUTPUT-SYSnnn , NBLKS-nnnn 
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CC  1-7  CC  10-12  C  16 

$$DITTO  ecu 

$$DITTO  CCS  DECKTYPE*xxx,DECKNAME-xx...x 

$$DITTO  EOJ 

CONSOLE  OPERATIONS 


All  operator  communication  may  be  in  upper  or  lower  c^se.    The  cancel  key  ia 
alao  Implemented  allowing  retyping  of  replies  in  error.    The  end  of  message 
may  be  denoted  by  the  "EOB"  key  or  by  repeatedly  depressing  the  space  bar. 

Depressing  the  interrupt  key  for  background  operation  will  cause  the  existing 
function  to  be  terminated  and  a  new  operation  request  displayed  on  the  con- 
sole.    (See  Multiprogramming  Considerations  for  Interrupting  foreground  oper- 
ation.) 

Tape  address  replies  are  entered  in  the  form  of  "CUUMM"  where  C-channel, 
UU-unlt  address,  and  MM-the  density  and  mode  setting.    For  nine-track  single 
density  tapes,  blanks  or  zeros  may  be  substituted  for  C0,  or  the  MM  para- 
meter may  be  omitted. 

If  the  operator  desires  the  Inclusion  of  /*  and/or  /&  cards  in  the  input 
data  for  card  input  functions  (i.e.  loading  Job  Streams  on  tape,  etc.),  he 
must  replace  the  first  "C"  of  the  function  code  with  a  For  these  opera- 

tions, a  blank  card  denotes  end-of-file.     If  the  operator  desires  to  cancel  a 
program  with  card  data  input,  he  should  interrupt  DITTO  and  enter  "CCL"  on 
the  console.    This  will  cause  the  input  stream  to  be  flushed  up  to  and  in- 
cluding the  end-of-flle  card. 

DITTO  may  also  be  executed  in  the  background  entirely  from  the  console  by 
entering : 

//  JOB  Anyname 
//  EXEC  DITTO 

After  completing  the  desired  operations.  Including  the  function  "EOJ",  a 
"READY  FOR  COMMUNICATIONS"  message  will  be  printed  by  Job  Control.  Reply: 

/& 


MULTIPROGRAMMING  CONSIDERATIONS 
Interrupting  Foreground  Operations 

To  Interrupt  DITTO  when  executing  in  a  background  partition,  the  external 
interrupt  key  on  the  CPU  is  depressed.    This  will  cause  the  existing  DITTO 
GSD.S7W.0ITT0  11 
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function  to  be  terminated  and  a  console  message  Issued  requesting  a  new  func- 
tion. 

The  Interrupt  DITTO  when  executing  in  a  foreground  partition »  the  following 
procedures  should  be  used: 

1.  Depress  Console  Request  Key. 

2.  Message  *^AR  REAQY  FOR  COMMUNICATIONS"  will  be  displayed. 

3.  Enter  *'MSG  Fn",  where  n«l  or  2  and  correspond  to  the  partition  being 
Interrupted. 

4.  Enter  EOB  (Alt.  coding  5). 

The  existing  foreground  DITTO  function  will  be  terminated  and  a  console 
message  issued  requesting  a  new  function. 

Batch  Job  Foreground  Operation  (DOS  Veraion  III  Only) 

Requirements  for  Batch  Job  Foreground  operation  are  identical  to  those  of 
background  operations.    Control  card  operations  may  be  interchanged  in  any 
batch  partition.    System  units  (SYSLST,  SYSIPT,  SYSPCH)  must  be  assigned  if 
used  in  any  of  the  DITTO  functions. 

Foreground  Initiator  Operation 

Foreground  Initiator  Operation  of  DITTO  is  available  in  the  console  mode  of 
communication  only.    Control  card  operation ,  due  to  the  lack  of  an  active 
communications  region  for  the  partition,  is  not  available.    Due  to  the  lack 
of  system  units  (SYSIPT,  SYSPCH,  SYSLST)  in  the  foreground  for  DOS  Version 
II,  SYS001,SYS002  and  SYS003  should  be  assigned  for  the  above  devices  respec- 
tively.   These  system  unit  restrictions  do  not  apply  to  DOS  Version  III  users. 

System  Unit  Assignments 

DITTO  will  determine  at  load  time  the  device  types  assigned  to  SYSLST  and 
SYSPCH.    If  SYSLST  is  assigned  to  tape,  133  character  records  will  be  written 
with  the  first  character  being  the  Type  A  carriage  control  character.  If 
SYSPCH  is  assigned  to  tape,  80  character  records  will  be  written.    At  EOJ, 
a  tape  mark  will  be  written  and  the  tape  backspaced  for  the  appropriate 
System  Unit  if  data  has  been  written. 

If  SYSPCH  is  assigned  to  a  unit  record  device,  the  appropriate  write  command 
for  either  a  2500  aeries,  1442  Nl,  or  1442  N2  punch  will  be  used  based  on  the 
user's  supervisor.    No  DITTO  modifications  should  be  made  for  these  devices. 
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FUNCTION  CODES 
Code  Alternate  Description 

ecu  CC  Card  to  Card 

CCS  Card  to  Card  with  sequence  numbers  and  deck  name 

Identification 

CPU  CP  Card  to  Printer  in  character  format 

CHU  CH  Card  to  Printer  In  character  and  vertical  hexldecl- 

mal  format 

CTU  CT  Card  to  Tape  Unblocked 

CTR  —  Card  to  Tape  Reb  locked 

TCR  TC  Tape  to  Card  unblocked  or  blocked 

TPU  TP  Tape  to  Printer  unblocked  in  character  format 

TPR  —  Tape  to  Printer  reb locked  in  character  format 

THU  TH  Tape  to  Printer  unblocked  in  character  and  vertical 

hexideclmal  format 

THR  —  Tape  to  Printer  reblocked  in  character  and  vertical 

heKldecimal  format 

TTU  TT  Tape  to  Tape  (1  to  99  tape  files) 

*INT  —  Initialize  Tape  -  DOS  standard  format 

*TRL  —  Tape  Record  Load.    Copy  tape  to  tape  with  altering 

of  length  and/or  data  of  specific  records 

*TRS  —  Tape  Record  Scan.    Search  tape  for  logical  record 

using  1-35  position  scan  argument 

TFA  —  Tape  to  Printer  using  Type  A  forms  control 

TFD  —  Tape  to  Printer  using  Type  D  forms  control 

WTM  —  Write  Tape  Mark 

REW  —  Rewind  Tape 

RUN  —  Rewind  and  Unload  Tape 

FSF  —  Forward  Space  tape  file 

CSD^SFW^DITTO  13 
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CODE  ALTERNATE  DESCRIPTION 

BSF  —  Backspace  tape  file 

FSR  —  Forward  Space  tape  record 

LSR  —  Back  space  tape  record 

CRG  —  Erase  Record  Gap 

DID    Disk  Identification  change  (change  volume 

serial  number) 

DRL  —  Disk  Record  Load.    Alter  key  and/or  data 

portion  of  any  disk  record, 

DDU  DD  Disk  Dump.    Disk  to  printer  in  character 

and  vertical  hexidecimal  format  unblocked. 

DDR  —  Disk  Dump  with  reblocking  of  data  records 

into  logical  record  length. 

DRS  —  Disk  Record  Scan.    Scan  disk  for  matching 

key  or  data  argument  or  for  EOF. 

SDU  SD  Disk  Dump  for  split  cylinder  files 

SDR  —  Disk  Dump  reblocked  for  split  cylinder  files 

SRS  ~  Disk  Record  Scan  for  split  cylinder  files 

EOF  —  Write  disk  end-of-file  record 

CCL  —  Cancel  card  input  function 

EOJ  End  of  Job 

*    Denotes  functions  not  available  with  control 
card  operation. 

OPERATING  SUGGESTIONS 

DEBLOCKING  TAPES 

DITTO  does  not  provide  a  tape  to  tape  with  deblocking  function.  Blocked 
card  image  tapes  IBM  supplied  DTR  tapes,  DOS  maintenance  tapes,  etc.), 

may  be  deblocked  into  an  unblocked  format,  however,  by  using  the  tape  to 
card  function  and  assigning  SYSPCli!  to  the  output  tape*    The  deblocked  tape 
may  then  be  assigned  to  SYSIPT,  eliminating  the  need  in  many  cases  of 
physically  punching  the  data  into  cards.  CSD»SFW« DITTO 
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PRINTING  TAPE  FILES 


Progra^exs  who  require  listings  of  tape  files  ^if /i^^^^^Ji: Jg^.f^^.f 
more  useful  than  the  character  print  functions.    The  Tape  Hex 
provide  both  character  and  vertical  hexidecimal  format  with  a  position  scale 
for  each  tape  record.    Programmers  using  these  functions  under  the  remote 
control  cIrd  operaUon  should  also  make  use  of  the  NBLKS  parameter.  This 
opUonal  paiam^ter  gives  the  programmer  the  capability  obtaining 
••partial"  listings  of  tape  files.    This  eliminates  "lengthy"  and  time 
consuming"  tape  printing. 


PRINTING  SYSLST  TAPES 


When  SYSLST  is  assigned  to  tape.  DOS  Job  Control  statements  are  written  as 
121  character  records,  with  the  first  character  being  the  ASA  FORTRAN  ^ 
foim^-control  charact;r  (Type  D) .    DITTO  and  many  "  ^fg^^ 

which  support  SYSLST  on  tape,  write  133  character  records,  with  the  first 
charac^e?  being  the  CCW  operation  code  for  forms-control  (Type  A) .  Printing 
SYSLST  tapes  presents,  therefore,  some  incompatibilities  in  forms-control 
characters  to  be  used. 

DITTO  provides  two  (2)  functions  for  printing  SYSLST  tapes  using  fo™s- 
co™ol  characters.'  TFD  assumes  all  tape  records  contain  ^^e  Type  D  forms - 
control  character.    These  tape  records  may  contain  from  0  to  132  positions 
of  data  to  be  printed. 
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10.    WHAT  IS  AN  INDEXED  SEQUENTIAL  FILE?    Before  answering  that  question.  It 
may  be  necessary  to  define  a  couple  of  terms.    They  are  physical  organization, 
and  logical  organization.    Physical  organization  refers  to  the  specific  physi- 
cal layout  and  placement  of  records  within  a  file  from  the  standpoint  of  the 
hardware.    Logical  organization,  on  the  other  hand,  has  to  do  with  how  the 
programer  or  the  operating  system  for  that  matter,  "sees"  the  records  within  a 
file.    Physical  and  logical  organization  may  be  exactly  the  same  for  any  one 
file,  but  that  is  usually  not  the  case  when  dealing  with  files  which  are  resi- 
dent on  tape  or  on  a  direct  access  device. 

An  indexed  sequential  (ISAM)  file  is  one  in  which  the  records  are  in 
sequence  logically  but  not  necessarily  physically.    It  provides  sequential 
processing  capability  just  as  any  other  sequential  file,  and  in  addition, 
provides  the  ability  to  directly  access  individual  records.    It  must  be  resi- 
dent on  a  direct  access  storage  device  (e.g.,  disk).    It  differs  from  a  se- 
quential file  in  that  each  record  within  the  file  contains  a  specific  control 
field  called  a  key.    This  key  field  must  be  identified  to  the  operating  system, 
and  the  key  witl?in  each  record  must  be  unique;  i.e.,  no  two  records  in  the  file 
can  have  the  same  key,  just  as  no  two  people  should  have  the  same  social  secu- 
rity number. 

The  total  file  is  composed  of  at  least  three  separate  areas  -  an  index 
area,  a  prime  data  area,  and  an  overflow  area.    Though  these  areas  are 
"controlled"  by  the  operating  system,  the  programer  can  vary  the  size  of  each, 
and,  under  certain  conditions,  can  look  at  what  is  contained  in  each.  Nor- 
mally, he  is  not  concerned  with  the  details  of  these  areas. 

To  create  or  load  an  indexed  sequential  file,  the  records  must  be-in 
ascending  sequence  by  key.    As  the  records  are  loaded,  the  system  builds  a 
series  of  indexes,  and  places  all  of  the  records  in  the  prime  data  area. 
Nothing  goes  into  the  overflow  area  during  the  create  process.    That  area  is 
used  only  when  records  are  subsequently  added  to  the  file,  and  the  system 
needs  space  for  expansion. 

The  major  advantage  to  using  an  indexed  sequential  file  is  the  great 
amount  of  flexibility  it  provides.    When  records  are  added,  the  whole  file 
does  not  need  to  be  rewritten  as  is  the  case  with  a  straight  sequential  file. 
Additionally,  as  mentioned  before,  direct  accessing  and  processing  of  records 
is  possible  because  of  the  indexes.    Any  number  of  records,  in  any  order,  may 
be  read  or  written  without  processing  the  entire  file. 

Now  let  us  look  at  the  mechanics  of  creating,  updating,  and  listing 
indexed  sequential  files  using  ANS  COBOL.    All  references  are  to  the  sample 
program  attached  as  Appendix  A. 
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11.    REVIEW  OF  ENVIRONMENT  DIVISION  AND  DATA  DIVISION  REQUIREMENTS.    To  proc- 
ess ISAM  files,  we  must  describe  them  properly  in  the  ENVIRONMENT  DIVISION 
and  in  the  DATA  DIVISION. 

a.  ENVIRONMENT  DIVISION.    SELECT  STATEMENT. 
(Ref:    Lines  54  thru  61.) 

(1)  The  ASSIGN  clause. 
(Ref:    Lines  55  and  58.) 

DOS:    This  clause  must  be  of  the  form  SYSnnn-DA-unit-I  in  which  nnn  may 
be  any  system  number  allowed  on  your  system,  and  unit  may  be  either  2311  or 
2314  or  2321.    The  I  identifies  the  file  as  being  an  indexed-sequenti al  file. 

OS:    This  clause  must  be  of  the  form  DA-I-ddname  where  ddname  is  the 
name  of  the  JCL  DD  card  pointing  to  the  indexed-sequenti al  file.    This  assign 
identifies  the  file  to  the  COBOL  compiler  as  being  an  indexed-sequential  file 
on  a  direct  access  device. 

(2)  The  ACCESS  clause.    When  you  have  an  ISAM  file,  you  have  the 
choice  of  using  it  as  a  random  file  (Direct  Access)  or  as  a  sequential  file. 
If  you  wish  to  use  the  file  as  a  random  file  and  be  able  to  directly  access 
specific  records,  you  must  include  the  clause  ACCESS  IS  RANDOM  in  the  SELECT 
statement.    If  you  plan  to  use  the  file  as  a  sequential  file,  you  may  code 
either  ACCESS  IS  SEQUENTIAL  or  omit  the  ACCESS  clause  entirely,  as  SEQUENTIAL 
is  the  default.    (Ref:    Line  59) 

(3)  ,The  KEY  clauses.    The  RECORD  KEY  IS  clause  identifies  which  field 
of  the  ISAM  record  is  the  key  field.    The  record  key  must  be  specified  for  any 
use  of  an  ISAM  file.    The  NOMINAL  KEY  IS  clause  is  needed  whenever  ACCESS  IS 
RANDOM  is  specified.    The  nominal  key  is  used  to  identify  which  record  is  to 

be  read  or  written,  whereas  the  record  key  identifies  the  one  field  within 
the  record  which  is  to  be  used  as  the  key.    In  other  words,  when  you  want  a 
specific  record,  you  must  ask  for  it  by  its  key.    This  is  done  by  moving  the 
key  of  the  record  you  want  to  the  nominal  key  field,  and  then  issuing  a  READ 
statement.    When  accessing  an  ISAM  file  sequentially,  the  nominal  key  is  not 
required. 

(Ref:    Lines  56,  60  and  61) 

b.  DATA  DIVISION.    FD  ENTRIES.    The  LABEL  RECORDS  clause  in  the  FD  of 
an  ISAM  file  must  be  LABEL  RECORDS  ARE  STANDARD.    ISAM  files  may  contain  only 
fixed-length  records,  which  may  be  blocked.    As  with  any  other  type  of  file, 
if  the  records  are  blocked,  the  BLOCK  CONTAINS  clause  must  be  included  as  part 
of  the  FD. 

(Ref:    Lines  89  thru  93  and  99  thru  103.) 
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12.    CREATING  AN  ISAM  FILE.    (Ref:    Lines  208  thru  228)  We  need  two  files  to 
create  an  ISAM  file  -  an  input  file  within  which  the  records,  as  mentioned 
before,  must  be  in  ascending  sequence  based  on  the  record  key;  and  an  output 
file  which  is  the  ISAM  file  itself.    The  Environment  Division  entry  for  this 
file  must  indicate  that  access  is  .sequential.    The  Data  Division  entry  must 
show  LABEL  RECORDS  ARE  STANDARD.    In  the  Procedure  Division,  the  following 
process  is  required  as  a  minimum: 

a.  The  ISAM  file  must  be  opened  as  an  output  file. 

b.  The  records  read  from  the  input  file  must  be  moved  to  the  record 
area  for  the  ISAM  file.    If  reformatting  is  desired,  it  should  be  done  during 
this  step. 

c.  To  get  each  record  onto  the  ISAM  file,  a  WRITE  statement  is  needed. 
The  WRITE  statement  used  here  is  slightly  different  from  that  used  for  straight 
sequential  files.    In  the  event  that  the  records  are  not  actually  in  sequence, 
a  simple  write  statement  would  cause  the  program  to  abnormally  terminate 
(ABEND).    To  prevent  this,  we  can  include  an  INVALID  KEY  clause  with  the  WRITE 
statement.    The  format  is  as  follows: 


WRITE  record-name         FROM  data-name 

INVALID  KEY  Imperative  Statement (s) 
(Ref:    Lines  219  thru  226.) 

The  INVALID  KEY  is  a  condition  for  the  WRITE  just  as  AT  END  is  a  condition  for 
the  READ,  and  they  operate  in  much  the  same  way.    Until  the  INVALID  KEY  condi- 
tion occurs,  the  statement(s)  following  the  words  INVALID  KEY  are  ignored,  and 
control  is  passed  to  the  next  sentence.    If  the  INVALID  KEY  condition  does 
occur,  ONLY  then  will  the  statement(s)  be  executed.    The  reason  for  the  INVALID 
KEY  option  is  to  prevent  us  from  putting  together  an  invalid  file.    The  INVALID 
KEY  condition  will  occur  whenever  we  violate  one  of  the  three  rules  concerning 
building  ISAM  files. 

Rule  1.    The  records  which  will  make  up  the  ISAM  file  must  be  in  ascending 
sequence  by  their  keys.    If  we  attempt  to  WRITE  a  record  that  is 
out  of  sequence,  an  INVALID  KEY  condition  will  occur. 

Rule  2.    The  key  in  each  record  must  be  unique.    If  we  attempt  to  WRITE 

a  record  whose  key  is  a  duplicate  of  one  we  have  already  written, 
we  also  will  get  an  INVALID  KEY  condition. 

Rule  3.    llnough  disk  space  must  be  allocated  to  contain  all  records,  else 
an  invalid  key  condition  will  occur. 
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The  statements  following  the  words  INVALID  KEY  are  determined  by  what  you 
want  your  program  to  do  when  an  INVALID  KEY  condition  occurs.    You  may  want  to 
skip  over  the  record  that  caused  the  INVALID  KEY  condition;  you  may  want  to 
print  an  error  message;  or  you  may  want  to  halt  the  program.    Most  often,  the 
statements  will  be  a  GO  TO  EXIT  or  a  PERFORM  of  an  error  routine. 

d.    Every  record  in  the  file  should  have  a  one  character  field  at  the  very 
beginning  reserved  for  a  deletion  code.    (Ref:    Lines  95  and  105)  During 
creation  of  the  file,  the  programer  is  responsible  for  moving  any  non-HIGH- 
VALUE  character  to  this  field  (Traditionally  LOW-VALUE  is  moved).    Any  record 
in  the  file  with  HIGH-VALUES  in  the  first  character  will  not  be  retrieved  when 
processing  the  file  sequentially. 

13.    UPDATING  AN  INDEXED  SEQUENTIAL  FILE.    There  are  two  ways  to  access  an 
existing  ISAM  file.    Let  us  look  at  the  mechanics  of  each. 

a.    RANDOM  ACCESS.    Accessing  a  file  randomly  means  that  individual 
records  may  be  selected  from  the  file  in  any  order.    The  primary  benefit  in 
using  this  method  of  processing  is  that  not  all  records  have  to  be  read,  and 
processing  time  can  often  be  reduced  substantially.    Considerations  for  random 
access : 

(1)  ENVIRONMENT  DIVISION.    The  SELECT  statement  for  the  ISAM  file 
must  include  the  ACCESS  IS  RANDOM,  NOMINAL  KEY,  and  RECORD  KEY  clauses. 
(Ref:    Lines  57  thru  61.) 

(2)  DATA  DIVISION. 

I 

(a)  In  describing  the  file  (FD),  the  main  consideration  is 
to  ensure  that  the  block  size,  record  size,  and  record  format  are  the  same 
as  when  the  file  was  created. 

(Ref:    Lines  99  thru  103. ) 

(b)  The  data-name  associated  with  the  NOMINAL  KEY  in  the 
SELECT  statement  must  be  defined  in  the  WORKING -STORAGE  section,  preferably 
as  a  Level  77  item.    It  must  be  the  sarie  size,  and  have  the  same  character- 
istics as  the  item  within  the  record  which  is  designated  as  the  RECORD  KEY. 
(Ref:    Lines  118,  119.) 

(3)  PROCEDURE  DIVISION.    (Ref:    Lines  244  thru  287.)    Any  time  an 
ISAM  file  is  accessed  randomly,  there  must  be  some  means  of  determining  which 
specific  records  of  the  file  are  to  be  read.    Usually,  another  input  file, 
called  a  transaction  file,  is  used  to  obtain  the  keys  of  the  records  we  need. 
This  transaction  file  generally  contains  data  to  update  certain  records  of  the 
ISAM  file,  and  though  it  may  be  a  physically  sequential  file,  the  records 
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within  it  do  not  have  to  be  in  any  particular  order.    To  handle  this  type  of 
situation  we  need  to  do  the  following  in  the  Procedure  Division: 

(a)  Open  the  transaction  file  as  Input. 

(b)  Open  the  ISAM  ipiie  for  both  Input  and  Output,  because  we 
will  read  records  from  that  file,  update  them,  and  then  put  them  back  on  the 
file-    Also,  we  may  need  to  add  new  records  to  the  file.    The  OPEN  statement 
looks  like  this: 

OPEN  I-O  ISAM-file-name 

(Ref:    Line  176) 

(c)  A  record  must  now  be  read  from  the  transaction  file.  With- 
in that  record  will  be  the  key  of  the  record  to  be  read  from  the  ISAM  file,  and 
it  must  be  moved  to  the  NOMINAL  KEY  field  in  working-storage. 

(d)  The  ISAM  record  may  now  be  retrieved  by  issuing  a  READ 
statement.    This  particular  READ  is  slightly  different  from  that  used  with 
sequential  access.    Remember,  the  file  is  being  read  randomly,  and  any  record 
selected  may  be  at  the  end  of  the  file,  in  the  middle,  or  at  the  beg-inning. 
In  fact,  any  record  may  be  read  more  than  once  in  any  one  processing  cycle. 
So,  there  is  really  no  end  to  the  number  of  records  read,  and  an  AT  END  c'ause 
is  not  required  with  the  READ.    There  is  a  possibility  though,  that  when  we 
issue  a  READ  for  the  file,  and  the  system  searches  for  the  appropriate  record 
(based  on  the  contents  of  the  NOMINAL  KEY),  that  it  may  not  find  that  record. 
If  that  occurs,  an  invalid  key  condition  results  and  unless  we  provide-  for 
handling  that  condition,  the  program  will  ABEND.    Fortunately,  we  can  provide 
for  it  simply  by  attaching  an  INVALID  KEY  clause  to  the  READ.    The  format  of 

a  READ  for  random  access  is: 

READ     file-name     INTO  data-name 
INVALID  KEY  statement (s) 
(Ref:    Lines  250  thru  256.) 

The  action  of  the  INVALID  KEY  clause  is  the  same  as  it  was  for  the  WRITE 
statement;  that  is,  the  statement(s)  following  the  words  INVALID  KEY  will  not 
be  executed  unless  an  invalid  key  condition  occurs.    As  stated  earlier,  that 
happens  when  we  ask  for  a  particular  record,  and  that  record  does  not  exist 
on  the  file.    It  may  be  that  an  error  of  some  sort  has  occurred  possibly  in 
source  coding  or  keypunching  -  and  it  would  then  be  appropriate  to  print  an 
error  message  as  well  as  an  image  (copy)  of  the  transaction  record.    Or,  if 
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the  processing  cycle  provides  for  the  addition  of  new  records  to  the  file,  it 
may  be  that  this  transaction  record  is  one  which  should  be  added*  and  we  would 
want  to  perform  an  add-records  routine.    The  procedures  to  do  that  will  be 
discussed  later. 

(e)  Assume  for  now  that  upon  execution  of  a  READ,  no  invalid 
key  condition  was  encountered,  and  the  record  we  asked  for  has  been  retrieved 
from  the  file,  and  is  now  resident  in  the  ISAM  record  area  of  main  storage. 
Any  required  changes  may  now  be  made,  and  when  completed,  the  record  is  ready 
to  be  written  back  to  the  file.    In  all  cases  so  far,  when  we  needed  to  put  a 
record  onto  a  file,  we  used  a  WRITE  statement.    In  this  case  however,  we  must 
use  a  REWRITE  statement.    The  reason  is  that  the  original  record  is  still  on 
the  file.    (When  we  read  it,  a  copy  of  the  record  was  moved  to  main  storage.) 
In  order  to  put  a  "new"  copy  of  the  record  onto  the  file,  we  must  REWRITE 
rather  than  WRITE.    The  format  of  the  REWRITE  is: 

REWRITE  record-name     FROM  data-name 

INVALID  KEY  statement{s) 

(Ref:    Lines  283  thru  285.) 

Notice  that  we  must  attach  an  INVALID  KEY  clause  to  the  REWRITE.    The  only 
reason  for  an  invalid  key  condition  to  occur  on  a  rewrite  is  a  change  in  the 
contents  of  the  nominal  key  field  between  the  time  the  record  was  read  and  the 
time  the  rewrite  was  attempted.    It  is  most  unlikely  that  this  will  happen, 
but  we  must  provide  for  it.    If  it  does  happen,  it  is  best  to  print  a  message 
indicating  what  happened  (INVALID  KEY  ON  REWRITE),  display  the  record  involved, 
and  then  terminate  the  program,  as  there  is  evidently  a  logic  error  in  the 
program- 

(f)  In  addition  to  making  changes  to  records,  it  may  be  that 
some  records  have  to  be  deleted.    To  indicate  which  records  should  be  changed, 
deleted,  etc.,  we  can  include  a  type-transaction  code  in  each  transaction 
record.    For  example,  a  code  of  "C"  could  mean  change,  a  "D"  delete,  and  an  "A" 
add.    So  far,  we  have  handled  only  type  code  "C".    The  process  of  deleting 
records  is  very  similar  to  that  of  changing  records.    The  major  difference  is 
that  we  must  move  HIGH-VALUES  to  the  deletion  code  field  of  the  ISAM  record, 
which,  as  pointed  out  in  paragraph  12(d;,  is  a  one  character  field  attached  to 
the  front  of  the  record  at  file  create  time.    No  other  changes  need  to  be  made 
in  the  record,  and  it  may  now  be  rewritten  to  the  file  just  as  was  done  with  a 
changed  record.    Again,  (Ref:    Lines  270  thru  274)  the  REWRITE  verb  must  be. 
used  instead  of  WRITE.    Though  the  record  is  still  physically  on  the  file, 
from  a  logical  standpoint  it  is  not  there.    It  can,  however,  be  retrieved 
randomly  in  case  it  was  "deleted"  in  error. 


(g)    Now  let  us  look  at  how  we  can  add  new  records  to  an  existing 
ISAM  file.    An  important  point  we  may  need  to  reemphasize  here  is  that  the  key 
of  each  record  must  be  unique.    So,  if  we  have  to  add  a  new  record  to  the  file, 
it  is  imperative  that  there  is  not  already  a  record  on  the  file  with  the  same 
key.    We  can  check  that  in  one  of  two  ways.    First,  let  us  follow  the  same  pro- 
cedure as  before.    We  read  a  record  from  the  transaction  file,  move  the  key 
found  there  to  the  NOMINAL  KEY  area,  and  then  issue  a  READ  to  the  ISAM  file. 
If  an  INVALID  KEY  condition  occurs,  the  record  we  requested  is  not  on  the  file. 
If  the  type  code  of  the  transaction  is  an  "A"  then  we  may  add  the  record  to  the 
file  using  a  WRITE  statement,    {A  REWRITE  is  used  only  when  a  record  which  was 
previously  read  has  to  be  put  back  on  the  file.)    The  format  of  the  WRITE  is 
the  same  as  that  used  in  creating  the  file.    Another  way  to  handle  the  addition 
of  records  is  to  read  a  record  from  the  transaction  file,  check  the  type  code 
to  see  if  it  is  an  "A",  and  if  so,  move  the  transaction  record  to  the  ISAM 
record  area,  the  record  key  to  the  nominal  key,  and  then  WRITE.    If  that 
particular  record  is  not  already  on  the  file,  the  WRITE  will  be  completed 
successfully  (in  a  very  rare  case,  the  file  may  be  full,  and  an  INVALID  KEY 
condition  will  occur).    If  there  is  a  record  on  the  file  with  the  same  key,  an 
INVALID  KEY  condition  will  occur,  and  it  must  be  handled  as  an  error. 

14.    SEQUENTIAL  RETRIEVAL  OF  AN  INDEXED  SEQUENTIAL  FILE.    (Ref:    Lines  305 
thru  314)    As  mentioned  before,  indexed  sequential  files  can  be  processed 
either  randomly  or  sequentially.    When  updating,  it  is  generally  more  . 
advantageous  to  use  the  random  access  mode.    (To  add  records  to  an  ISAM  file, 
random  access  must  be  used.)    Sequential  retrieval  of  records  to  produce,  for 
example,  a  printed  listing  is  often  necessary.    This  paragraph  will  illustrate 
the  process  of  retrieving  sequentially  first  of  all,  an  entire  ISAM  file,  and 
secondly,  only  a  portion  of  that  same  file.    Again  let  us  look  at  the  - 
considerations  by  COBOL  division. 

t 

a.  ENVIRONMENT  DIVISION.    The  SELECT  statement  must  include  the  RECORD 
KEY  IS  clause  following  the  ASSIGN  TO  DA-I-sysname  clause.    The  ACCESS  IS 
SEQUENTIAL  clause  is  optional,  but  should  be  included  for  documentation.  If 
it  is  desired  to  start  the  retrieval  process  at  some  point  other  than  the 
first  record,  then  the  NOMINAL  KEY  IS  clause  must  be  included  also. 

b.  DATA  DIVISION.    The  only  factors  to  be  considered  here  are  that  the 
blocking  factor  and  record  size  parameters  are  specified  correctly. 

c.  PROCEDURE  DIVISION. 

(1)  The  file  must  be  opened  as  an  input  file  only. 

(2)  If  the  retrieval  is  to  start  at  a  point  other  than  the  beginning 
of  the  file  (first  record),  the  next  step  must  be  to  move  the  RECORD  KEY  of 
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the  first  record  to  be  retrieved  to  the  NOMINAL  KEY  area,  and  then  issue  a 
START  command.    The  format  of  the  START  statement  is  as  follows: 


This  causes  the  ISAM  file  to  be  searched  for  the  record  whose  key  is  con- 
tained in  the  NOMINAL  KEY  area.    If  the  record  is  found,  a  pointer  is  set 
so  that  when  a  READ  statement  is  given  (see  next  paragraph),  the  first 
record  read  will  be  the  one  with  the  given  key,  and  each  subsequent  issu- 
ance of  a  READ  will  result  in  the  next  record  in  sequence  being  read.  If 
the  record  requested  is  not  found  in  the  file  then  the  statement  following 
INVALID  KEY  will  be  executed.    Note  that  the  START  statement  is  not  required 
vtiien  retrieval  is  to  begin  with  the  first  record  of  the  file. 

(3)    To  actually  retrieve  a  record,  a  READ  statement  is  needed. 
The  format  of  this  particpilar  READ  is  the  same  as  that  for  a  straight  sequen- 
tial file,  i.e.. 


START  file-name 


INVALID  KEY  imperative  statement 


READ 


file-name 


AT  END    imperative  statement 


(Ref :    Lines  306  thru  309) 
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PE-7  EXAMPLE 
COBOL  (Structured) 


I.  INTRODUCTION. 


II.  DEFINITIONS. 
III.  INPUT/OUTPUT. 


IV.  ASSUMPTIONS. 


The  Supply  Officer  at  Fort  Harrison  has  asked  for 
you  to  create  an  ISAM  File  containing  the  current 
Quantity  On  Hand  of  the  items  stocked  in  the  Supply 
Room.  You  are  to  update  the  ISAM  file  with  each  day's 
Order  Records  and  list  the  ISAM  File  after  each 
update. 

ISAM  FILE;  Indexed  Sequential  Access  Method  file. 

INPUT:    Input  consists  of  an  Order  File  stored  on  a 
2314  disk  pack.  The  file  contains  the  Create 
Records  for  the  ISAM  File,  followed  by  a 
blank  record,  followed  by  the  days  Order 
Records.  Assign  this  file  to  SYS006.  See 
Record  Layouts  1  and  2  for  a  description  of 
each  type  of  record, 

OUTPUT:  Output  will  consist  of  two  (2)  listings. 

1.  A  Transaction  Listing  showing  each 
transaction  as  it  is  processed  against  the 
ISAM  File  with  one  of  the  following  messages; 

A.  TRANSACTION  FOR  DELETED  RECORD-NOT  PROCES- 
SED 

B.  UNMATCHED  PART  NUMBER 

C.  DELETED  RECORD 

D.  NEGATIVE  BALANCE  ON  HAND 

E.  PROCESSED 

See  Form  Layout  #1  for  a  description  of  this 
report. 

2.  An  ISAM  FILE  LISTING  to  list  all  records 
on  the  ISAM  File  by  part  number  showing  the 
updated  Quantity  On  Hand.  See  Form  Layout  #2 
for  a  description  of  this  report. 

Assign  these  reports  to  SYS005. 

There  will  be  more  than  one  Cl)  pag&  of  output,  so 
produce  a  heading  at  the  top  of  each  page. 
CUSTOMER  CODE  will  also  contain  a  'D'  if  the  record 
is  to  be  deleted  from  the  ISAM  File. 
During  the  updating  of  the  ISAM  File  no  records  are 
to  be  added. 
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V.  METHODS «  1.  Read  the  CREATE  RECORDS  and  create  the  ISAM  File. 

If  you  run  out  of  space  on  the  disk,  or  the  records 
are  out  of  sequence,  stop  the  processing  at  that  point 

2.  Read  the  ORDER  RECORDS,  find  the  matching  ISAM 
record,  and  subtract  the  Quantity  Ordered  from  the 
Quantity  On  Hand. 

If  the  record  has  already  been  deleted,  annotate  it 
with  MESSAGE  'A'. 

If  a  matching  record  is  not  found,  annotate  it  with 
MESSAGE  'B' . 

If  the  CUSTOMER  CODE is  equal  to  a  'D",  delete  the 
record  andannotate  it  with  MESSAGE  'C 
If  the  lupdated  Quantity  On  Hand  happens  to  be  NEGA- 
TIVE, annotate  it  with  MESSAGE  *D^ 
Annotate  all  other  transactions  with  MESSAGE  'E*. 

3.  List  the  ISAM  File  after  it  is  updated. 

Both  reports  will  consist  of  twenty  (20)  double 
spaced  lines  per  page, 

VI.  EDIT  FACTORS.  All  numeric  fields  will  contain  valid  numeric  data. 
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RECORD  LAYOUT  #£  1 

For  use  of  this  form,  see  Aft  78-7;  the  proponent  age  nc)^  is 
Office  of  the  Assistant  Vice  Chief  of  Staff . 

PAGE  NO  1        OF    1  .-PAGES 

DATE 

DeceiDfaer  19xx 

SYSTEM  ID 

Truck  SuddIv  Svstem 

RECORD  LENGTH 

80  Characters 

PREPARED  BY 

SP6  D.M,  Gross 

1     1  CARD         ^  DISK       Q  TAPE       [J]  OTHER 

FILE  ID 

SYS0Q6 

REMARKS 


1  record  per  bloc 


ORDERS  FILE    (Create  Records) 


BliLATIVE 
»»CSITlON 


1 

2 

3 


IDENriFICATIOlM  OF  ELEMENT  (riBLD) 


PART  NUMBER 
Quantity  On  Hand 
Not  Used 


Aipendlx  A 


ABBREVIATION 


LENC3TH/ 
CLASS 


4N 

72AN 


LOCAnON 


1-4 
5-8 
9-80 
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RECORD  LAYOUT 

Por  use  oi  thit  form,  see  AH  1 8- 7;  the  proponent  agency  is 
Office  of  the  Assistant  Vice  Chief  of  Staff. 

1  1 

PAGENn.          nn  i^Arsnc 

DATE 

December  19xx 

SYSTEM  to 

Truck  Supply  System  , 

RECORD  LENGTH 

80  Characters 

PREPARED  BY 

SP6  D.W.  Gross 

□ 


CARD 


DISK 


□ 


TAPE 


□ 


OTHER 


FILE  ID 

SYS 006 


1  record 
Tjer  block 


REMARKS 


ORDERS  FILE  (Order  Record) 


RELATIVE 
POSITION 


IDENTIFICATION  OF  ELEMENT  (FIELD) 


ABBREVIATION 


LENGTH/ 
CLASS 


LOCATION 


la 
lb 


PART  NUMBER 

CLASS  NUMBER  (either  a  1,2,  or  3) 

Part  Nximber 

CUSTOMER  NAME 

CUSTOMER  ADDRESS 

UmT  OF  ISSUE  ! 

QUANTITY  ORDERED  : 

PRICE  PER  ITEM  / 

CUSTOMER  CODE  / 

NOT  USED 

*  DOLLARS  AND  CENTS  FIELD  \ 

**  CAN  ONLY  BE  A  BLANK  OK  A 

***  Will  be  a  'D'   for  deletion 
transactions 


IN 
3N 

18AN 

18AN 

2AN 

3N 

5N* 

1A1T**1 

29AN 


1 

2-4 

5-22 

23-40 

41-42 

43-45 

46-50 
51  ***" 

52-80 
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■  mm  LAYOUT*! 


I'ORM  LAYOUT <jj 


FOR  msIRUCTIONAl  PURPOSES  CM 
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If^!^    ns  AMERICAN  NATIONAL  STANDARD  COB 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
0Q009 
00010 
0001 1 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
0002  5 
00026 
00027 
00028 
00029 
00030 


IDENTIFICATION 
PROGRAM- ID. 
AUTHOR. 
INSTALLATION. 
DATE-WRITTEN. 
DATE-COMPILED. 
SECURITY. 
REMARKS.  f<"-** 


* 


DIVISION. 
PE~7EXAMPLE* 
SP6DW  GROSS 

CSD,  USAIA,  FT  HARRISON  IN  A6216. 
MAR  1,  1978 
JUL  5,  1978 
NONE 

GENERAL  FUNCTIONS.  .  i 

THIS  PROGRAM  ILLUSTRATES  \ 

1  CREATING  AN  ISAM  FILE 

2  RANDOMLY  UPDATING  AN  ISAM  FILE 

3  READING  AND  LISTING  THE  UPDATED  ISAM 
FILE  SEQUENTIALLY. 


SPECIFIC  FUNCTIONS. 


THIS  PROGRAM  READS  THE  CREATE  RECORDS 
AND  BUILDS  AN  ISAM  FILE.  THE  ORDER  RECORDS 
FOR  EACH  DAY  ARE  THEN  MATCHED  AGAINST  THE 
BALANCE  FILE  (ISAM  FILE)  ,  AND  THE  QUANTITY 
ORDERED  IS  SUBTRACTED  FROM  THE  BALANCE. 
FILES  AUANTITY  ON  HAND.   IF  A  NEGATIVE  RE- 
SULT IS  REACHED,  A  MESSAGE  IS  PRINTED  TO  ! 
THAT  EFFECT  ON  THE  TRANSACTION  REPORT. 

FINALLY  THIS  PROGRAM  LISTS  THE  UPDATED  ' 
BALANCE  FILE. 
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CGBOL  ISAM  TEXT 


00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

OOC  J9 

00040 

00041 

00042 

0004  J 

00044 

00045 

« 

00046 

0004  7 

00048 

00049 

00050 

00051 

00052 

0005  3 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

0006  1 

ENVIRONMENT  DIVISION. 
CONFIGimATION  SECTION.  . 
SOURCE- COMPUTER.  IBM-360-H40. 
OBJECT-COMPUTER.  IBM-360-H40. 
SPECIAL-NAMES . 

CGI  IS  TOP-OF-PAGE. 
INPUT-OUTP'JT  SECTION. 
FILE- CONTROL. 

SELECT  IM-ORDER-FILE 

ASSIGN  TO  UT-S-SYS006. 

SELECT  OR-PRINTED-REPORTS 
ASSIGN  TO  UT-S^SYS005. i 

NOTICE  THE  ASSIGN  CLAUSE  FOR  THE  FOL- 
LOWING SELECTS.     ISAM  FILES  MUST  BE  ASSIGN- 
ED TO  DIRECT  ACCESS  DEVICES,  THUS  THE  'DA 
-I'.     ALSO  YOU  MUST  SPECIFY  WHICH  FIELD  IN 
THE  RECORDS  IS  THE  KEY  FIELD.     FOR  RANDOM 
PROCESSING,  THE  CLAUSES  ACCESS  IS  RANDOM, 
AND  NOMINAL  KEY  IS   MUST  BE  SPECIFIED. 

SELECT  BM-BALANCE-FILE 

ASSIGN  TO  DA-I-SYSC08 

RECORD  KEY  IS  OMOl-P ART-NUMBER. 
SELECT  8M-BALANCE-FILE-RAND0M 

ASSIGN  TO  DA- I- SYS 008 

ACCESS  IS  RANDOM 

RECORD  KEY  IS  8M02-PART-NUMBER 

NOMINAL  KEY  IS  WS-PART-NUMBER 


•t^^^1^ 
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00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

C0C99 

001.00 

OOlOl 

00102 

00103 

00104 

00105 

00106 

00107 

00108 
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DATA  DIVISION. 

FILE  SECTION. 

FD  IM-ORDER-FILE 

BLOCK  CONTAINS  1  RECORDS 
RECORD  CONTAINS  80  CHARACTERS 
LABEL  RECORD  IS  STANDARD 
DATA  RECORDS  ARE  IMOl-CKEATE-REC 

IM02-ORDER-REC. 

01  IMOl-CREATE-REC. 

05  IMOl-PART-NUMBER 

05    IMOL- QUANTITY 

05  FILLER 
01  IM02-ORDER-REC. 

05  IM02-PART-NUMBER 
•    05  IM02-CaST0MER-NAME 

05    IMO  2- CUSTOMER- ADDRESS 

05     IM02-UNIT-OF- ISSUE 

05  IM02-qUANTITY-ORDERED 

05    IMO2-PURCK/1SE- AMOUNT 

05  IM02-CUST0MER-C0DE 

05  FILLER 
FD  OR-PRiNTED-REPORTS 

BLOCK  CONTAINS  1  RECORDS 

R  "ORD  CONTAINS  133  CHARACTERS 

LABEL  RECORD  IS  STANDARD 

DATA  RECORD  IS  OROl-PRINT-LINE . 
01  OROl-PRINT-LINE 
FD  BM-BALANCE-FILE 

BLOCK  CONTAINS  1  RECORDS 

RECORD  CONTAINS  11  CHARACTERS 

LABEL  RECORD  IS  STANDARD 

DATA  RECORD  IS  'SMOl-BLAANCE-REC. 
01  BMOl-BALANCE-REC. 

05  BMOl-DELETE-KEY 

05  BMOl-PART-KUMBER 

05  FILLER 

05     BMOl- QUANTITY-ON-HAND 
FD     BM- BALANCE-FILE-RANDOM 

BLOCK  CONTAINS  1  RECORDS 

RECORD  CONTAINS  11  CHARACTERS 

LABEL  RECORD  IS  STANDARD 

DATA  RECORD  IS  BM02-BALANCE-REC-R. 
01  BM02-BALANCE-REC-R. 

05  BM02-DELETE-KEY 

05  BM02-PART-NUMBER 

05  FILLER 

05  BM02-QUANTITY-ON-HAND 


PIC  9(4)- 
PIC  S9(4)  , 
PIC  X(72), 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


9(4), 
X(  18) . 

X(  IS) , 
XX. 

999^ 
999V99. 

X(29) » 


PIC  X(f33). 


PIC  X« 
PIC  9(A ) » 
PIC  XX, 
PIC  S9(4) 


PIC  X. 
PIC  9(4), 
PIC  XX. 
PIC  S9(4) 


CnnOL  ISAM  -^ILE  TEXT 
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00109 

OOILO 

OOlll 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

0014i 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 


W0RKING-3T0RAGF  SCCTICN. 

77     WS-BEGIN-POINT  PIC  X{27) 

VALUE    • WORKING  STORAGE  BEGINS  HERE". 


77 

ws- 

eOF-SWITCH 

VALUE 

'GI  F  •  . 

PIC 

XXX 

77 

ws- 

ERROR-SW 

VALUE 

'CFF  «  , 

PIC 

XXX 

77 

ws- 

LINE-COUNTER 

VALUE 

26 

PIC 

99 

77 

ws- 

PAPT-NUMBEk 

VALUE 

0. 

PIC 

9(4) 

01 

ws- 

■HEADlNG-LINE-1. 

05 

FILLER 

VALUE 

SPACES, 

PIC 

X(13) 

05 

WS-HLl-TITLE 

PIC 

X{ 18), 

05 

FILLER 

VALUE 

SPACES. 

PIC 

X(102) 

01 

ws- 

-H&ACING-LINE-2- 

05 

FILLER 

VALUE 

SPACES, 

PIC 

XX 

05 

FILLER 

VALUE 

•PART  NO', 

PIC 

X(7) 

05 

FILLER 

VALUE 

SPACES, 

PIC 

X  (4) 

05 

FILLER 

VALUE 

•QUANTITY' , 

PIC 

X(Q) 

05 

FILLER 

VALUE 

SPACES, 

PIC 

X(5) 

05 

WS-H12-MESSAG= 

VALUE 

•  MESSAGE •  . 

PIC 

X(7) 

05 

FILLER 

VALUE. 

SPACES. 

PIC 

X( 100) 

01 

ws- 

-DETAIL-LINE, 

05 

FILLER 

VALUE. 

SPACES, 

PIC 

X{4) 

05 

WS-DL-PARr-NUM6ER 

PIC 

9(4).  . 

05 

FILLER 

VALUE 

SPACES. 

PIC 

X(7) 

05 

WS-OL-QUANTITY 

PIC 

 9« 

05 

F  ILLER 

VALUE 

SPACES. 

PIC 

X(5) 

05 

WS-DL -MESSAGE 

p'  - 

X ( 1 06  )  , 

01 

HS- 

-END-POINT 

iC 

X(25) 

VALUE 
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COBOL  ISAM  ^I'J".  TEXT 


O  ( 


00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 

0C161 

00162 

00163 

00164 

00165 

00166 

00167 

00163 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

0)177 

00178 

00179 

00180 

00181 

00182 

00183 

00184 

00185 

00186 

00187 

00138 

00189 

00190 

00191 

00192 

00193 

00194 

00195 


PRQC£i3URE  DIVISION. 
0000-DRIVER. 


* 


THE  DRIVER  PORTION  OF  THIS  PROGRAM 
DIRECrS   THE  £XECUTK)iM  THROUGH  THE  THREE 
PARTS  GF  THIS  PROGRAM. 


* 


OP£H  INPUT  IH-OROER-FILE 

OUTPUT  BM-HALANCE-F  ILC: 
PERFORM  0100-CREATE-pOUTlME  THRU  OICO-EXIT 

UNTIL  WS-EOF-SWITCH  EUUAL  'Oi>l«. 
IF  WS-ERROR-SW  EQUAL  'ON' 

GO  TO  oooo-exiT. 

CLOSE  BM-BALANCe-FILE. 

««5}:«*dt******«^«««**«*«*«***<=  *********** 

*  THE  FOLLOWIWG  OPEN  STATEMENT   ILLUSTRA-  * 

*  TES  THE    M-O'   OPTION,   THIS  MEANS  THAT  THE  * 

*  FILE  WILL  BE  OPENED  AS  BOTH   INPUT  AND  OUTPUT.* 


OPEN  I-O  6M-BALANCE-FILE-RAN00M 

OUTPUT  OR-PRINTED-REPORTS. 
HOve  'OFF'   TO  WS-EOF-SWITCH. 
MOVE   "TRANSACTION  REPORT'   TO  WS-HL 1-T 1 T L£ » 
PERFORM  0200-UPDATt-ROUTlNE  THRU  0200-EXlT 

UNTIL  WS-EOF-SrtlTCh  tOUAL  'ON'. 
CLOSE  IM-ORD£R-FILt 

BM-BALANCE-FILE-RANCOM , 
OPEN   INPUT   BM-BALANCE-F  IL6 
MOVE   'OFF'    TO   WS-tOF- SW I TCH, 
MOVE  26  TO  US-LInE-COUNTER. 
MOVE  SPACES  TO  WS-OL-MESSAl'F, 
MOVE  SPACES  TO  WS-HL2-Mt SSAGc. 
MOVE   'ISAM  FILE  LISTING*   TO  WS-HLl-TI TLE. 
PERFORM  05Q0-LIST-R0UT1 NE   THRU  0500-EXir 

U:>ITIL  WS-EOF-SWITCH  EQUAL   *  ON  •  . 
CLOSE  CR-PRINTEO-REPORTS 
BM-BALANCE-FILE. 
0000-EXIT, 

STOP  «UN, 
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00  196 

00197 

* 

*• 

00198 

*                                     THE  CREATE  ROUTINE  READS  EACH  INPUT 

00199 

*                              CRCATF  RECORDt   MOVES  THE  FIELDS  TO  THE 

* 

00200 

*                              ISAM  BALANCE  RECORD*   AND  WRITES  EACH  REC- 

* 

00201 

*                               ORD.  NCTICC   THE   WRITE   STATEMEnTc  wHEN 

00202 

*                                 WRITING  TO  AN    ISAM  FILE    THt    INVALID  KEY 

00203 

*                              CLAUSE  IS  US€0.    IN  THIS  CASE   IF  THERE  IS 

* 

0020^ 

*                               AN  INVALID  KEY   IT  MEANS   THERE   IS  NO  MORS 

* 

00205 

«                               SPACE   LEFT  ON  THE  DISK. 

* 

00206 

« 

* 

00207 

00208 

OlOO-CREATE-KOUTJNt. 

00209 

READ  IM-URDEk-FILE 

00210 

AT  END 

00211 

MOVE   'ON*   TO  WS-£OF-SWITCH 

00212 

GO  TO  ClOO-eXIT. 

0021  3 

IF    IMOl-CREATE-REC  EQUAL  SPACES 

00214 

THEN  MOVE    'ON*    TO  wS-COr-SWl TCH 

002  1  S 

SO  TO  OlOO-EXlT. 

002  1  6 

MOv/E  LDW-VALUES  TO  BMO 1-OEL ETE-KE Y . 

002 17 

MOVE   ri^Ql-PART-NUMBER  TO  BMOl-PART-NUMBER, 

002  18 

f^VE   IMOl-CUAMTITY   TO  BMO  1-OUA.NT  I  T Y-ON-HAND- 

00219 

WRITE  BMOl-BALANCE-REC 

00220 

INVALID  K£Y 

00221 

DISPLAY   'FULL  DISK  OR   TRANS  OUT  OF  SEG't 

00222 

\J  \J 

IMOl-PART-MUMBER 

0022*3 

CLOSE  IM-DRDER-FILE 

00224 

BM-BALANCE-FI LE 

0022  ^5 

MOVE.  'ON'   Til  WS-eOF-SWITCH 

00226 

MOVE   'ON*  TO  WS-6RR0R-SW. 

0022  7 

\J  *J  ^  ^  i 

OlOO-EXIT. 

0022  R 

EXIT. 

0022^5 

002  ^0 

* 

0023  1 

«                                       THE   FUNCTION  OF    THE  UPOATE  ROUTINE  IS 

00232 

*                              TO  READ  EACH  ORDER  RECURDt  READ  THE  ISAP 

00233 

«                               FILE  P.A|\lDOMLY  FINDING  THE  MATCHING  R€CORD 

* 

00234 

«                                 AND  ADJUST   THE   QUANTITY   ON  HAND,    THEN   I N- 

00235 

♦                               VALID  K£Y  CLAUSE  IS  USED  WITH  THE  READ 

002  A 

«                              STATEMENT,  WHEN  THE  HATCHInS  RECORD  IS  NCT 

0023  7 

*r                               THERE,   THIS  CONDITION   IS  INVOKED, 

00238 

J  lj  Cm  *U 

«                                       AFTER  THE  QUANTITY  ON  HAND   IS  AOJUSTEDt 

00239 

*                               THt   ISAfI  RECORD   IS  REPLACED   IW  ITS  PLACE 

<s 

00240 

*                              ON  THE   FILE.   THE  REURITE  SfATEMENr   IS  USED 

002'»1 

*                              FOR  THIS. 

* 

0024?. 

0024  3 

00244 

0200-UPOATE-ROUTINE. 

00245 

READ  IM-ORDER-FILE 

00246 

AT  END 

0024  7 

MOVE   'ON'    TO  WS-eOF-SWl TCH 

00248 

SO  TO  0200-EX! F- 

00249 

MOVe   IMC2-PAaT-NUMBER  TO  WS-P AR T-NUKBi; :< . 

00250 

READ  EM-&ALA^•CE-FILE-RANOOM 

00251 

INVALID  KEY 

M,OVE   IMOZ-PArtT-r^UMBER  TO  WS-OL-PART-NUHBER 

ERIC 
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0m 


C0253 

0')254 

0J255 

00256 

00257 

C0253 

00259 

00260 

00261 

00262 

00263 

0026^ 

0^265 

00266 

00267 

00268 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00273 

00279 

002BO 

00281 

00282 

00233 

00284 

00265 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00303 

00309 


THRU  OSOO-EXIT 


Move   rM02-0UANTITr-0RDERE-.D  TO  WS-9L-GUANTI  7 Y 
MOVE   'ONNATCHED  P/^RT  NUMBER*  10  WS-DL-MESS AGE 
PEKFOftM  0300-PRINr-ROUTINE   THRU  0300-EXir 
60  TO  O200-£X(T^ 
IF   SHOZ-DeLETE--Kh:Y  EQUAL  HIGl^-VALUES 

.   THEM  l^aVE    •TRANSACTION  ^OR  DELfcT£C  REC J?< J-iNQT  PROCESSED' 
TO  WS-DL-MESSACe 

MOVE   lM02-PART-NUrtBER  TO  riS-UL-PART-NUMlBER 
MOVE   1MO2-GUANTI-TY-ORDERE0   TO  W3-DL-0LlA\T  I  TY 
PERFORM  OSOO-PRINT-PnUTINE  THRU  0300-tXIT 
GO  TO  02CO-EXIT, 
IF   lM02M:UST0MER-C0pE  EQUAL  'D' 

THEN  MOVE  HIGH-VALUES  TO  B^^G2-DEL£  TE-KE Y 

MOVE    'OELETEP  RECORD'   TO  WS-OL-MESSAGC 
MOVE   lM02-PARr-NUMBER  TO  WS-OL-PART-|f^lJMBER 
MOVt   TM02-QUANTITY-0R0EHED   TO  WS-OL-QUANT I TY 
PERFORM  0300-PRIMT-ROUTINt 
REWRITE  BM02-BALANCe-REC-K 
INVALID  KEY 

DISPLAY   'RECORD  NOT  DELETED' t 
TM02-PA^T-NUM0£R 

GO  TQ  ozoo-Exn* 

SUBTRACT   IM02-QUAM  ITY-ORDERtO  FRO^I  BM02-OU ANT  ITY-Ota-H AND. 
MOVE  BM02-PAR  T-i^LIMSER  TO  WS^DL-PART-^uMisei^. 
MOVE  BM02-0UANTITY-0N-HAND   TO  WS-DL-CU A.NTI  FY. 
IF  Bff02-Q'JA'iTI  TY-ON-HANO  IS  LESS  THAN  O 

THEN  MOVE    'NEGATIVE  BALA.^CE   ON  HAND'   TO  WS-CL-MESSAGE 

E^-SE 

MOVE    "PROCESSED'   TO  WS'-DL-MESS AGE. 
PERFORM  0300-pRIMT-ftOUTINE   TtiRU  0300-EXIT. 
REWRlIt  BM02-EALANCE-REC-R 
INVALID  KEY 

DISPLAY  BM02-PA»^^"NUMOERt      S-P ^RT-WUMBER . 

0200-EXlT  » 
EXIT* 

0300-PRINT-ROUT IME . 

IF  WS-LINE-COUNTER  GREATER  THAN  19 

THEN  PERFORM  OAOO-HEAOER-ROUT I  .ME   TH:<U  U^aO-  iXIT. 
WRITE  OROI-PI^INT-LINE  FROM  WS-OETAI  L-L  I  N£ 

AFTER   ADVANCING  Z  LINES* 
ADD   i   TQ  WS-LINE-COUNT£^i  . 
MOVE  SPACES   TO  V-S-DETAl  L-L  I  ME* 
03GO-EX1T. 
EXIT. 

OAOO-HEAOER-ROUTINE* 

MOVE  ZERO  TO  W S-L I NE-COUN TER r 

WRITE   QROi-PRINT-LlNE   FROM  WS-HEAO  I  .MG- L  INE- I 

AFTER  ADVArJCING  T0P--0F-PAGE . 
WRITE  DROl-PPirNT-l  IME  FROM  WS-HEAD I  iNG^L  lNL-2 
AFTER   ADVANCING   2  LINES. 
0<»00-EXIT* 

EXIT* 
0500-*LISr-RCUTINE. 

READ  E^'-eALANCE-FILE 
AT  END 

MOVE    'ON'    TO  ^^S-ECF-SWITCH 
GO  TO  0500-EXIT, 
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COBOL  ISAM  FILf  TEXT 


00310  MOVE  DHOl-OUAMTITY-ON-HAND   TO  WS-OL-QUANTI TY. 

00311  HOVE  BMOl-PART-NUMBER  TO  WS-OL-PART-NUHBER* 

00312  PERFORM  0300-PRlNT-ROUT INE  THRU  0300-EXIT. 

00313  0500-EXIT. 

00314  EXIT. 
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COBOL  ISAM  TILE  TEXT 


¥11 


»>ART  NO 


TRANSACTION  REPORT 
CUflNTITY  MESSAGE 


1941 

-35 

hiEGATIVE  BALANCE 

UN 

HAND 

126B 

993 

PROCESSED 

1767 

2513 

PROCESSED 

1513 

67<»9 

PROCESSED 

1052 

5048 

PROCESSED 

1223 

-9 

NEGATIVE  BALANCE 

ON 

HAND 

1454 

4256 

PROCESSED 

1689 

9903 

pi^OCFSSED 

1169 

394 

PRuCESSED 

1491 

154 

PI^QCESSED 

1767 

2507 

PROCESSED 

1268 

981 

ppocrsstu 

1513 

6740 

PKOCL-SSED 

1941 

-2B5 

NEGATIVE  BALANCE 

ON 

HAND 

1655 

117 

PROCESSED 

1609 

9901 

PRUCeSSCD 

1655 

53 

PROCESSED 

1454 

4239 

PiUlCESSEO 

1052 

5047 

PkOCESSED 

1513 

6  73a 

PRGCESSE.) 

COPOL  I'^AK  ^T.K  TEKT 


TRANSACT  ION  REPORT 
PART  NO         auAr^T[TY  MESSAGE 


1589  PRQCHSSED 

1491  129  PRUCeSSED 

1767  2499  PKOCESSfcO 

1454  4237  PROCESSED 

1169  384  PROCESSED 

1223  -29  NEGATIVE  BALANCE  ON  HAND 

20Q6  9742  PROCESSED 

2019  9299  P,^0C6SSE0 

2652  426  PROCESSED 

2152  7341  PROCESSED 

2925  U15  PROCESSED 

2068  927  PROCESSED 

2529  5827  PROCESSED 

2019  9298  PROCESSED 

2652  414  PROCESSED 

2152  7332  PROCESSED 

3109  999  PROCESSED 

3327  1501  PROCESSED 

3007  3579  PPOCESSEO 

3318  7800  PROCFSSEC 


o 
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"™"  COBOL  TSA1-:  PTT.R  TEXT 


V/3 

TKA.^4i>ACTI JM  REPORT 


PART  NO  QUANTITY  .MESSAGE 

3765  ^987  PROCESSED 

3082  99^1  PROCESSTD 

3007  3  OFLETEO  RECORD 

3007  3576  PROCESStO 

3007  2  TRANSACTION  FOR  DELETED  RECORD-NOT  PROCESSED 

3318  7799  PROCESSED 

3327  1498  PROCESSED 

3765  4Q86  PROCESSED 

3109  959  PROCESSED 

3082  9920  PROCESSED 

3327  1490  PROCESSED 

3765  4985  PROCESSED 

9999  3  UNMATCHED  PART  NUMBER 

3109  938  PROCESSED 
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PART  NO 
1052 
116-9 
1223 
1268 
1454 
1491 
1513 
1655 
1609 
1767 
1941 
201  9 
2068 
2C36 
2152 
2529 
2652 
2925 
3032 
3109 


ISAM   FILE  LISTIS4C 
GUANT ITY 
504  7 
384 
-29 
931 
4237 
129 
6738 
53 
9900 
^499 
-285 
9298 
927 
55742 
7332 
5827 
414 
1415 
9920 
938 


,  >  - 
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CC30L  ISAM  'ILE  TE' T 


ISAM   FILE  LISTING 
PART  QUAtiTITY 
3310  7799 
3  327  1^90 
3765  ^985 


EKLC 
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IA-Ol-02-10  (D) 
3-10  (D) 


IA-Ol-03- 


ERIC 


Assembler  Language 


Practical  Exercises 


ALC  Team,  Softvare  Division 
Data  Processing  Department 
United  States  Army  Institute 
of  Administration 


4  ' 


^1 

DC's  and  DS's 
ALC  PE  #1 

Write  the  statements  necessaiy  to  define  the  heading  shown  m  the 
attached  £om  layout.    (Foim  Layout  1) 

Write  the  statements  necessary  to  define  the  detail  line  shown 
on  the  attadied  form  layout.    (Fotto  Layout  1) 

Write  the  statements  necessary  to  define  an  input  area  corresponding 
to  the  format  shown  on  the  attached  card  layout.    (Card  Layout  1) 

Write  the  statement  to  allocate  enough  space  for  the  printer 
output  area. 


IISUDCTIOM  'M  m 


MULTIPLE-CARD  LAYOUT 

fttuMtl  tilit  km,  III  AR  117;  lli*  pitptnmt  ofincf  i  i  QIIki  oI  tl>«  AiiiiKnl  Vlii  Cliial  il  iloH, 


CARD  LAYOUT  1 


1 1  ] 


SSN 


NAME 


DATE  OF 
RANK 


m  n  t  to  tn:|)]  m:  16 II  ,illM2l»i3  24a2(2)na]0]|]2  3]}4i:JC3?]a39(0<l  «4]«44i4E4l(l»S0Sli2S3MUMS7MHH(IC2H(4(St$ll(ti9}|IIinninsiS)|]|»N 


NOT  USED 


m  n  n  M  111  11)2  n  H  is  HDU  IJ»iian2<»2l«2!«  30  3  t  32  33  34  35  36  37  »)S«41«  «M45«474<«5(I51  »5]S(»M57US9UltUe3MeSK»SIH7(II)72n  li  lllilUtnt^ 


12)49171  li9ni21]U1)]tl7]|l9»2l  22  23  24]9»277l»303t32]33<3S3fi»3l]l404142OM4Stt<7U^3S05l52)3MSS»S7»»6^ 


1  2  H  S  (  7  I  1 18  lH2ni4 19 1(17  till  20  21  22n» 23 2i 2739 21X31 32 33  3433X  37  31  3)tt4t^M144C46 17 43 05(1 51  ?2S1»US(S7MU 


t  2  2  4  S  I  7  I  I  to  in2 19 14 19 1117 11  »  20  2t  222]  24  25  21  27  21  9  30  3)  33  23  »  39  38 37313)4041 4M]44n4e';4«09()$l92  53  M&S5C97U»UIIU 


DA  .T.  3165 


'  u.i.ooviixMiNTpiiNTiHaornci:  im-i\\'Ui 


FORM  LAYOUT 


I  6 


i 


HI 


FIT" 


2" 


-1 


1" 


Yl  »  MM  411  M  f  }in  411  III  0in4Sl7l  I D  !  MISU  1 1 3 1  M  IS<  7 1  ft  CI  t 


4EI7 


FOR  DBIRUCTIONAL  PIWOSES  OHLV 


3.221 
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SmOVY  EXECUTE  All 

80-132 

HLQ  PC  *  a 

Otr«  of  the  prograsoftrs  In  your  shop  has  Isft  you  with  a  partially 
wrltC4Mi  tvt£  program.  He  has  eonpleted  the  logic  portion  o£  the  prograa 
and  all  that  remains  to  be  written  la  the  declarative  section  and  the 
OTP's. 

You  are  to  define  the  following  areas  in  storage: 

1.  A  one  byte  field  naned  SPACE  initialized  to  blank. 

2.  A  132  byte  field  named  ODTPDT,  no  iitltial  value  is  needed.  This 
fi«2ld  will  be  used  to  hold  character  information. 

3.  An  80  byte  field  called  IRFUT.  This  field  should  be  defined  with 
a  0  duplication  factor* 

4.  A  79  byte  field  with  no  name  attached.  This  field  will  hold 
character  information,  and  no  initial  value  is  needed. 

5.  A  one  byte  field  naand  CODE.  It  will  hold  character  data  and 
needs  no  initial  value. 

6.  A  one  byte  field  called  DASH  initialised  to  the  value 

The  following  DTP* a  are  also  needed: 

1.  A  DTPFR.  The  I/O  area  is  OUTPUT,  the  device  address  is  SYSLST, 
the  fil«  name  is  PRIirr»  and  the  CNTRL  macro  will  be  used,  the 
block  size  should  be  132. 

2.  A  DTFCD.  The  I/O  area  is  THFUT,  the  device  address  is  SYSIPT, 
the  file  name  is  CARD,  and  the  end  of  file  address  is  ENDJOB. 

The  abovsf  storage  areas  and  DTF's  should  be  coded  in  the  order 
shown  above.  Once  you  have  done  the  irequired  codiaga  keypunch  the  cards 
and  submit  them  for  execution.  The  procedural  part  of  the  program  will 
be  supplied  by  the  student  Job  scream  as  will  the  data  cards. 


PERSONNEL  LISTING 
ALC  PE  #3 

Asseni>le :  A(ll 
Execute:  A(I3 

You  are  required  to  write  an  ALC  program  to  list  all  of  the 
people  in  your  mit. 

INPUT:    The  input  has  the  same  format  as  the  input  for  ALC  PE  #1. 
The  logical  name  for  the  card  reader  is  SYSIPT. 

OUTPUT:    The  heading  and  detail  lines  will  have  the  same  format  as 
those  for  ALC  PE  #1.    You  may  assume  that  all  output  will 
fit  on  one  page.    The  logical  name  for  the  printer  is 
SYSLST.    Double  space  all  output. 
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ASSEMBLE  A01 
EXECUTE  A03 

ALC  PE  4 
OFFICE  LISTING 


!•      Introduction;    You  are  to  write  a  program  that  will  print  a  listing 
of  the  people  assigned  to  the  office.     This  listing  will  show  each 
individual's  name,  phone  numbar,  home  address,  and  mari'^al  status* 

II.  Definitions;     SCODE  =  The  record  selection  code 

MCODE  =  The  mixital  status  code 

III.  Input /Output: 

A,  Input:     The  input  will  be  the  personnel  master  file  which  is  on 
cards  (see  attached  card  layout).        Device  addreac  -  SYSIPT* 

B.  Outp'  t:     Tbie  output  will  be  a  printed  report  on  the  1403  line 
printer  (see  the  attached  form  layout).  Device  address  -  3YSLST, 

IV.  Assimtptions : 

A*     The  listing  will  fit  on  one  page 

B.     The  MCODE  will  be  only  an  M,  S ,  or  D 

V.  Methods: 

A*     Provide  a  title  and  colimm  headings  as  shown  on  the  form  layout 

B.  List  only  those  personnel  that  have  an  SCODE  of  zero.  Use 
the  CLC  instruction  to  check  the  SCODE 

C.  Using  an  MVI  instruction,  insert  a  hyphen  between  the  third  and 
fourth  digit  of  the  phone  number  on  the  printed  report.     This  will 
require  breaking  the  phone  number  down  into  two  parts ♦ 

D.  Determine  the  indi'f'iduals  marital  status  using  the  CLI  instruction. 
If  the  code  is  an    ./".print  "MARRIFT)"  in  the  STATUS  field;  if  the 
code  is  an  "S",  piint  "SINGLE";  irxd  if  the  code  is  a  "D",  print 
"DIVORCED". 

VI.  Edit  Factors:  None 
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OVER  36 
ALC  PE  5 


Assent) le:  Mjil 
Execute:  AjlS 


You  aie  to  write  an  ALC  program  to  produce  a  listiftg  of  all 
personnel  in  the  battalicn  v4io  have  ccnpleted  more  ttty."  35  months 
of  service. 

INPUT:   The  input  is  a  persoraiel  master  file  presently  stored  cai 
punched  cards.   See  Caird  Layout  3. 

OOTPOT:    1)   The  output  is  on  a  132  print  po'dtion  printer. 

2)  Print  a  heading  at  the  top  of  each  new  page. 

3)  Only  10  detail  lines  should  be  pri-  >ed  per  page. 

4)  Print  a  total  line  containing  the  total  personnel  with 
36  or  more  months  of  service. 

5)  Doii>le  space  all  lines  except  triple  space  between  the 
total  line  and  the  last  line. 

6)  See  Foim  Layout  3  for  various  line  formats. 

Assumptions:   Not  more  than  999  persons  will  have  more  than  35 

mcnths  of  service.    Since  we  can  record  only  full  months 
of  service,  the  person  must  have  36  months  of  service 
or  more  to  qualify. 

Methods;    a)    Read  each  card  und  print  a  detail  line  oily  for  personnel 
with  over  35  months  of  service. 

b)  Keep  a  count  of  the  total  nurber  of  personnel  with  more 
than  35  months  of  service.   This  total  will  be  part  of 
the  final  total  line, 

c)  Do  not  edit  the  months  of  service  figure.  However, 

the  total  personnel  figure  should  be  edited  with  leading 
nonsignificant  zeros  si?)pressed  except  ^en  the  figure 
is  ^^00  in  \^i  h  case  the  total  figure  should  print 
as  a  L^:  gle  zero. 
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Not  Used 
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'Company 
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-Rank 


•Pay  Grade 


-Number  of  Dependents 
■Months  of  Service 
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ASSEMBLE  A01 
EXECUTE  A04 

ALC  PE-  5 
PAYROLL  EXERCISE 

I.  Introduction:    You  are  to  write  a  program  that  will  calculate  the 
net  pay  and  withholding  tax  for  each  individual  within  the  company. 
The  report  that  the  program  generates  will  list  each  individual  and 
the  information  pertaining  to  his  pay.    It  will  also  show  the  total 
tax  withheld  for  each  department. 

II .  Definitions:  None 

III.  Input/Output : 

A,  Input;    The  input  is  on  cards  which  are  sorted  by  department. 
The  pay  and  tax  rate  fields  have  two  implied  decimal  points 
(see  attached  card  layout  for  input  data  format). 

Device  address  =  SYSIPT. 

B.  Output ;    The  output  will  be  on  a  1403  line  printer  and  will 
consist  of  column  headings  on  each  page,  detail  lines,  and  a 
total  line  for  each  department.    Start  each  department  on  a 
new  page  (see  attached  form  layout  for  output  specifications). 
Device  address  =  SYSLST. 

IV.  Assumptions : 

Each  department  will  fit  on  one  page.    The  total  tax  figure  will 
not  exceed  $99999.99. 

V.  Methods : 

A.  For  each  record  calculate  the  withholding  tax  as  follows: 
Withholding  tax  =  Tax  Rate  x  Gross  Pay 

B.  Calculate  Net  Pay  as  follows: 

Net  Pay  =  Gross  Pay  -  Withholding  Tax 

C.  Keep  track  of  the  total  taxes  for  each  department.    This  will 
be  part  of  the  total  line. 


D. 


Zero  suppress  all  numeric  output  fields.    The  Gross  Pay, 
Withholding  Tax,  and  Net  Pay  fields  should  have  decimal  points, 
commas,  and  fixed  dollar  signs  as  shown  on  the  form  layout. 


VI .      Edit  factors :  None 
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ASSEMBLE  A01 
EXECUTE  A02 


ALC  PE  7 
PARTS  INVENTORY 


!•        Introduction:     Tht2  Fix  or  Repair  Daily  Corporation  has  decided  to 
start  selling  by  the  case  instead  of  breaking  a  case  to  sell  indiv 
idual  items.     They  want  you  to  write  a  program  that  will  produce 
a  report  showing  the  number  of  full  cases  and  the  number  of  loose 
items  for  each  stock  number. 

II-       Definitions ;     Loose  Items  =  the  remainder  of  the  division  of 

Number  of  Items; 
Nuiri>er  per  Case 


III.  Input/Output; 


A.     Input:     The  input  will  be  The  Current  Inventory  File  which  is 
kept  on  cards  (see  card  layout). 
Device  address  •  SYSIPT. 

Output:     The  output  will  be  a  printed  report  on  the  1403  line 
printer  (see  the  form  layout  for  format  and  spacing) . 
Device  address  »  SYSLST« 

IV.  Assumptions;  None, 

V.  Methods: 


A.  Provide  main  headings  with  a  page  nxiraber  and  column  headings 
at  the  top  of  each  page. 

B.  Edit  all  numeric  fields  to  ensure  that  they  contain  numeric 
information. 

1.  If  they  do  not,  bypass  all  calculations  and  print  out  the 
card  with  fields  in  the  appropriate  positions.     Insure  that 
the  Loose  Items  and  Number  of  Cases  fields  are  blank.  The 
word  "ERROR"  should  also  be  printed  on  the  same  line. 

2.  If  they  do,  calculate  the  Number  of  Cases  as  follows: 

Number  of  Items 
Number  of  Cases  =    Number  per  Case 

3.  Print  a  detail  line  consisting  of  Stock  Number,   Item  Name, 
Number  of  Items,  Number  of  Cases,  and  Number  of  Loose  Items 
editing  as  shown  on  the  form  layout. 

C.  Print  only  20  double  spaced  detail  lines  per  page. 

VI.       Edit  Factors:     Edit  all  numeric  input  fields  to  ensure  that  they 
Q  contain  numeric  information. 
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FORM  LAYOUT 


BLOOD  TYPE 
ALC  PE  8 


Asseirble:  Adl 
Hxecute: 


You  are  required  to  determine  the  nunber  of  people  with  blood 

types  A,  B,  AB,  and  0  for  a  department  in  the  Institute. 

INPITT:    1)    The  input  consists  of  two  files:    A  sequential  disk  master 
file  and  a  card  file.   

ly  The  format  of  th'*  sequential  disk  records  is  given  in 
on  disk  Layout  /  .    The  file  has  a  blocking  factor  of  3. 

3)  The  card  format  is  shown  on  Card  Layout  7  . 

4)  The  blood  type  field  might  look  like  the  following  for 
example: 

record  position  31  79 

ABCAABBOOCCCAAAABOOOOOAC. .  .ABB 
The  blood  type  codes  have  the  following  meaning: 
Blood  Code         Blood  Type 

A  A 

B  B 

C  AB 

0  O 

Position  80  has  a  code.    If  it  is  anything  other 
than  the  letter  'B',  ignore  that  disk  record. 

5)  The  records  are  sorted  by  departments  and  one  department 
may  be  cn  more  than  cue  record, 

6)  The  card  file  contains  one  card  with  two  nuirbers  -  a  low 
key  and  a  high  key;  these  two  nunbers  should  be  used  to 
select  the  disk  records  to  be  processed.    Only  if  the 
following  condition  exists  should  the  disk  record  be  processed; 

low  key      disk  record  position  1-10  <  hi^  key 

If  the  condition  does  not  exist,  ignore  that  record. 


19  ^^'^^ 


OUTPUT:    1)    The  output  will  be  on  a  132  print  position  printer  and 
COTisist  of  six  lines  for  each  organization, 

2)    Each  organizaticfi  should  be  on  a  separate  page  with  the 
format  given  on  Form  Layout 

/Vssumptions:     a)    IVhen  the  disk  file  was  created,  the  name  assigned 

to  the  file  through  Job  Control  was  DISKIN*  The 
device  address  is  SYS0fi6» 

b)  Ignore  all  illegal  blood  types  found. 

c)  The  totals  can  be  expected  to  be  at  most  5  digits 
long. 

d)  Edit  the  totals  by  suppressing  leading  non- significant 
zeros. 
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V38  ASSEMBLE  A01 

EXECUTE  A06 

ALC  PE:  9 
MASTER  FILE  EDIT 


Introduction;  You  are  required  to  write  a  program  that  will  edit 

a  Transaction  File  and  a  Master  File  to  ensure  that  they  meet  certain 

requirements.  These  files,  if  there  are  no  edit  errors,  will  be 

used  as  input  for  another  program; 

II.      Definitions:  None* 

IH»     Input /Output: 

Input:    The  Transaction  File  will  be  on  cards  (see  card  layout  for 
specifications).    The  Master  File  will  be  on  sequential  disk.  There 
are  three  records  per  block  (see  disk  layout  for  specifications) . 
Card  l8  on  SYSIPT,  DUk  U  on  SYSW,  Fll«  nave  for  Di»k  is  MASTTN. 
Out£ut:     A  printed  report  will  be  produced  to  show  the  status  of 
the  different  records  (see  form  layout  for  specifications) . 
Device  addrete  -  SYSLST* 

IV.  Assumptions:    There  will  be  one, and  only  one,  transaction  record  per 
master  record. 

V.  Methods: 

1.  Print  a  main  heading  with  page  number  and  column  headings  at 
the  top  of  each  page« 

2.  Print  15  double  spaced  detail  lines  per  page* 

3*     Set  up  a  one  byte  switch  to  be  used  when  you  edit  the  input  • 

4.  Edit  the  classification  field  on  the  transaction  card  to  find 
out  whether  it  is  blank,  numeric,  alphabetic,  or  alpha  numeric. 
One  of  the  first  four  bits  of  the  switch  in  Step  3  above  will 
be  turned  on  to  indicate  what  type  of  field  it  is. 

5.  Do  the  same  thing  for  the  classification  field  on  the  master 
record,  except  that  one  of  the  last  four  bits  will  be  turned 
on  tQ  indicate  what  type  of  field  it  is. 
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6.     The  code  on  the  transaction  card  will  tell  vou  what  type  this 
field  should  be. 

CLASSIFICATION 
TYPE  OF  CODE  TRANSACTION  MASTER 


Blank 
Numeric 
Not  blank 
Numeric 

7.  If  either  or  both  of  the  fields  are  not  the  appropriate  type, 
print  the  fields  in  the  correct  print  positions  alone  with  the 
word  "ERROR" 

8,  If  both  the  fields  are  the  appropriate  type,  print  the  fields 
in  the  correct  print  positions. 

Edit  Factors;  None 


1  Blank 

2  Anything 

3  Alphabetic 
A  Numeric 


2M- 


The  following  definitions  of  tenn  apply  to  ALC  PE  #4.  These  are 
further  explained  by  the  eeries  of  exaiaplea  that  follow  the  definitions. 

1.  BLANK     -      this  means  that  all  19  positions  of  the  field  are 

blanks. 

2.  NON-BLANK  -  This  aeans  that  at  least  1  and  maybe  aa  many  as  all 

19  positions  of  the  fl<ild  contain  anything  other 
than  a  blank. 

3.  NUMERIC    -    This  means  that  all  10  positions  of  the  field 

contain  only  the  digits  0  thru  9. 

4.  ALPHABETIC  -  This  means  that  all  10  positions  of  the  field 

contains  only  the  letters  A  thru  Z,  or  blanks » 
however,  all  10  positions  may  not  be  blanks. 


EXAMPLES: 

DATA  FIELD 

TYPE 

ABCDEFGHU 

ALPHABETIC,  NON  BLANK 

12K1«345678 

NON  BLANK 

.(AXC6.*)/ 

NON  BLANK 

1234567890 

NUMERIC,  NON  BLANK 

BLANK 

NON  BLANK 

XXABCXX6XX 

NON  BLANK 

2468013579 

NUMERIC »  NON  BLANK 

JOHNUDOEiiK 

ALPHABETIC,  NON  BLANK 
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ASSEMBLE  A01 
EXECUTE  A09 

I-     Introduction:    You  are  to  write  a  program  that  vlll  produce  a  one 
page  report  ahovlxig  the  current  base  pay  for  all  enllated  personnel 
vith  lesa  than  20  years  service* 

!!•  Definitions;  None. 

Ill*  laput/Outout : 

Input:  None: 

Output:    The  output  vlll  be  on  a  1403  line  printer  (SYSLST) ,  and 

will  eonalat  of  a  one  page  report  as  shown  on  the  attached 
Foarm  Layout* 

IV.  AssuMptloas:  Hone. 

V.  Methods ; 

1.  Print  the  colunm  heading  on  the  top  of  the  page. 

2.  A  macro  called  EMPAY  h^ia  been  catalogucid  on  the  system  and  It  will 
generate  the  required  nine  pay  tables »  each  table  having  eleven 
entries.  Each  entry  of  the  tables  will  be  a  packed  four  byte  field 
containing  the  old  base  pay.  The  label  that  you  code  on  the  auicro 
will  appear  as  the  name  of  each  table  and  will  be  followed  by  a 
number  from  one  to  nine  which  indicates  which  of  the  tables  the 
label  applies  to.  There  are  no  operands  required  on  the  macro. 

3.  Each  table  will  be  In  ascending  order  based  on  time  in  service. 

4.  Update  each  entry  in  all  nine  tables  as  follows: 

New  Base  Pay  »  Old  Pay  +  old  Pay  X  5.52X 

5.  ifhen  the  tables  have  been  updated  print  out  the  detail  lines  as 
shown  on  the  Form  Layout* 

6.  Edit  the  pay  fields  with  a  floating  dollar  sign,  and  a  decimal  pnt. 

7.  Use  at  least  one  BCT,  BXLE,  or  BXH  in  your  program* 
VI.    Edit  Factors;  None. 
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ASSEMBUE  K91 
EXECUTE  A02 


BINARY  MATH  EXERCISE 

I.  Introduction;    You  have  been  interviewed  for  an  ALC  programming 
position  by  the  Southeastern  Box  Company.    They  are  interested  in 
hiring  you  but  prior  to  making  their  decision,  they  want  you  to 
submit  a  sample  program.    This  company  uses  binary  math  for  all 
calculations,  so  your  sample  program  will  demonstrate  your  abillLy 
in  the  use  of  binary  math  instructions.    The  firm  also  requires 
detailed  source  documentation  on  all  ALC  programs  so  this  will  be 
an  additional  requirement  on  this  sample. 

II.  Definitions:  None. 

III.  Input /Output: 

A.  Input;    The  input  will  be  on  cards  (see  attached  card  layout) . 

Device  mddress  *  SYSIFT. 

B.  Output;    The  output  will  be  on  the  1403  line  printer  (see 
attached  form  layout)  .  Device  addresa-  STSLST. 

IV.  Assumptions:  None. 

V.  Methods; 

A,  Print  a  title  and  column  headings  at  the  top  of  each  page. 

B.  Using  a  line  counter,  print  only  20  double  spaced  detail  lines 
per  page. 


C.  Initialize  a  field  called  TOTAL  at  zero. 

D.  The  indicator  field  on  the  input, when  valid,  will  contain  a  one, 
two,  or  space.    When  it  contains  a  one,  bypass  all  ADD  instructions 
until  you  encounter  a  two  or  a  space  in  the  indicator  field. 

E.  The  processing  code  from  the  input. will  determine  what  calculations 
should  be  performed  on  the  number  read  from  the  card.  If  the  processln 
code  is  a  — 

one  -  add  the  number  to  TOTAL; 

two  -  Subtract  the  number  from  TOTAL 

three  -  Divide  the  number  into  TOTAL  keeping  the  quotient  as  the 
new  TOTAL 

four  -  Multiply  the  number  times  TOTAL 

^^^g  -  Add  the  number  to  TOTAL,  then  Multiply  the  new  TOTAL  by 
the  number 
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six  -  Divide  the  number  into  TOTAL,  then  subtract  the  number 
from  the  new  TOTAL 


Any  processing  code  that  is  larger  than  6  is  invalid. 

F.  Print  out  each  card  with  the  contents  of  TOTAL  out  to  the 
right  of  the  card. 

G.  If  any  errors  are  found  on  the  card,  bjrpass  all  calculations 
and  print  out  the  card,  leaving  the  TOTAL  field  blank. 

H.  If  the  TOTAL  is  negative,  edit  a  minus  sign  on  the  right  side 
of  the  TOTAL  field  on  the  output. 


Edit  Factors;  Edit  the  card  to  insure  that  all  data  fields  are 
numeric,  except  the  indicator  field  which  may  be  a  space. 
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P  =  Processing  Code 
I  =  Indicator 
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INTCGER  ARIIHKETIC 
ALC  PE  12 

Assent)  le:  A01 
Execute:  A12 

You  are  to  write  an  PIZ  program  that  will  detennine  which  nuni^ers 
in  a  given  interval  are  perfect  squares,  and  v^iich  numbers  are  prime. 
(Priue  numbers  are  those  nuirbers  that  are  cnly  divisible  by  1  and 
themselves) , 

INPUT:    The  program  will  read  aie  card,    Ihis  card  will  contain  the 
i^per  and  lower  bounds  of  the  interiral.    Ihe  format  of  the  card 
is  shown  on  Card  Layout 

OUTPUT:    The  output  should  start  at  the  tq)  of  a  new  page.  Detail 
lines  should  follow  the  appropriate  headings. 

Each  detail  line  will  consist  of  16    8  character  fields.  Each 
field  will  contain  one  nunfcer,  right  justified.    See  Form  Layout 
Useful  Information: 

1.  If  a  nuirber  is  a  perfect  square  it  is  not  a  prime. 

2.  If  a  number  other  than  2  is  even  it  cannot  be  a  prijne. 

3.  If  checking  a  nimber  N  to  see  if  it  is  prime,  it  is  only 
necessary  to  check  for  divisibility  by  nunfcers  <  Vn". 
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ALC  PE  13 


Asflenble  A01 
Execute  A15 


SORT 

I.    Introduction;  The  currenc  penonnel  roster  Iff  aalntalned  on  dlak  as  a 
sequential  file,  but  due  to  additions  the  file  Is  no  longer  In  the 
proper  order.  You  are  to  vrlte  an  ALC  prograa  that  will  read  the  disk 
file,  sort  the  records,  and  rewrite  the  records  In  ascending  SSS  order. 

ZI«  Definitions t  None. 

III.  Input /Output : 

A.  Input:  Your  Input  Is  on  sequential  disk  in  the  format  shown  on  the 
attached  disk  layout.  The  filename  for  your  Input  file  Is  DISKINP 
and  It  Is  at  device  address  SYSHflS. 

B.  Output:  Your  output  will  be  on  sequential  disk  and  will  be  In  the 
same  fomat  as  It  was  on  the  Input.  The  filename  for  output  Is 
DISKOPT  and  the  device  address  Is  SYS906. 

IV.  Assuw>tlons;  There  will  be  no  more  than  30  records  on  the  file. 

V.  Methods ;  You  aay  use  any  strategy  you  want  to  sort  the  records,  but 
you  must  do  your  sort  In  core. 

One  method  of  sorting  Is  the  'Bubble  Sort'.  To  use  this  method 
first  read  all  records  Into  memory.  Then  take  the  first  record  and 
compare  It  to  all  sulesequent  records.  If  you  find  a  SSN  lower  than' 
the  SSN  you  are  using  switch  the  two  records  and  use  the  new  SSN  to 
continue  the  cosfiares.  At  the  end  of  the  first  pass  you  will  have 
the  record  with  the  lowest  SSN  In  the  first  position.  Repeat  the 
process  beginning  with  the  second  record,  then  the  3rd  and  so  forth 
until    you  have  repeated  It  for  all  but  the  last  record.  At  this  point 
all  of  the  records  will  be  in  the  correct  order. 
EXAMPLE: 

9,  6,  2,  3,  1,  4,  5,  7,  8 

We  would  compare  *9'  to  '6'.  Since  '6'  Is  less  than  '9'  we  switch 
the  '6*  and  the  '9'  and  continue  coopering  with  the  '6'.  Continuing 
with  the  '6'  we  find  that  '2'  Is  less  than  '6'  so  once  again  we  switch 
and  continue  this  time  with  the  '2'.  At  the  end  of  the  first  pass  the 
string  would  look  like  this:  1,  9,  6,  3,  2,  4,  5,  7,  8. 

For  the  second  pass  we  start  with  the  second  record  which  in  this 
case  is  the  '9'  again.  We  compare  it  to  the  '6'  (3rd  record)  switch 
and  continue  with  the  '6'  and  so  forth.  At  the  end  of  the  second  pass 
it  would  look  like  this:     1,  2,  9,  6,  3,  4,  5,  7,  8. 

VI.  Edit  Factors:  None. 

VII.  Special  Note:  The  output  disk  will  be  dumped  for  you  so  that  you  may 
check  your  results.  You  need  do  nothing  to  cause  this  to  happen. 


38^24 


DISK  LAYOUT 

Fo(u(«  of  tMt  km,  III  AR  18-7; 
the  pfoponflM  ojmy  ii  Offici  ol 
th«  Coinptroliir  of  th«  Army. 


NO.,  LENGTH,  BLOCK 


TAPtNO. 


REMARKS 


PREPARED  BV 


date; 


M  1  1 


ORG 


SSN 


NAME 


PG 


RAE 


U2-3U5. 


ETS 


DATE  OP 
RANK 


HON 
SER 


5 


■HISCELUNEOUS  INFORMATION 


*  PAY  GRADE 


)A  i1uc"«  3166 


ERIC 


FILL  REPORT  GENERATOR 
ALC  PE 

Assemble:  A01 
Execute:  A13 

You  axe  to  write  an  ALC  program  that  will  generate  a  bar  graph 
showing  the  percentage  fill  for  all  Federal  Stock  Numbers. 

INPUT:    Your  program  will  read  the  fill  data  from  an  unlabeled  tape. 
The  tape  may  contain  more  than  one  entry  for  each  FSN.    The  format 
of  the  tape  is  shown  on  Tape  Layout  13 . 

The  filename  for  the  tape  is  TAPEIN  and  the  Device  address  is 
SYS007. 

OUTPUT:    The  output  will  consist  of  a  heading  at  the  top  of  each  page 

and  a  number  of  detail  lines  (one  for  each  FSN) .    The  detail  lines 

will  contain  three  fields;  the  FSN,  the  percentage  fill,  and  a  row 

of  cisterisks  representing  the  percentage  fill  (one  asterisk  per  percent) 

See  Fom  Layout  13. 

The  device  address  is  SYSLST. 

Notes:    You  will  hs  . to  watch  for  zero  fill  items  and  items  which 
have  not  been  ordered  during  the  period.    There  is  also  the  possibility 
that  there  may  be  errors  on  the  tape  and  that  the  quantity  filled  will 
be  greater  than  the  quantity  ordered.    Print  zero  fill  items  as  part  of 
the  graph.    List  the  zero  order  items  on  a  separate  page,  one  per  line 
under  an  appropriate  heading  (See  Fom  Layout   13b) .    Also  on  this  final 
page  should  be  one  line  wit^  the  phrase  'LOiVEST  FILL  PERCENTAGE  WAS  FOR' 
followed  by  the  FSN  of  the  item  with  the  lowest  fill  percentage  and 

40 


the  percentage.    If  there  are  two  with  the  same  percentage  the  one 
with  the  largest  quantity  ordered  should  be  listed.    If  there  are 
more  of  an  item  listed  as  filled  than  were  ordered,  list  the  FSN  as 
part  of  the  graph  but  instead  of  putting  in  a  percentage  put  in  the 
word  'ERROR'. 
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EDIT  PROBLEM 
ALC  PE  15 

Assemble :  A01 
Execute:  A14 

You  are  to  write  an  ALC  program  to  perfom  edit  checks  on  cards 
that  vdll  be  input  to  a  requisition  processing  run. 
INPUT:    The  format  is  as  shown  on  Card  Layout  {i^. 

The  fields  should  be  edited  as  follows: 
The  FSN  should  be  nimeric  (0-9) . 

Tlie  nomenclature  may  contain  alphanumeric  information 
(0-9  or  A-Z)  or  blanks  or  dashes. 

The  unit  of  measure  should  be  alphabetic  (A-Z) 

The  quantity  should  be  numeric  (0-9) . 

The  activity  code  should  contain  alphabetic  information 
in  the  first  two  positions  and  numeric  infoimation  in  the 
last  four. 

OUTPUT:        The  heading  is  as  shown  on  Form  Layout  /i^.. 

The  detail  line  should  consist  of  the  card  image  and 
the  name  of  the  column  in  error.    Use  FSN  for  federal 
stock  number  and  NONE  if  no  errors  are  found  on  the  card. 

The  logical  name  for  the  printer  is  SYSLST,  double  space  all 
output 


ERIC 


rr  '■>  •  •■ 


45 


mSTtPCnOHAl  USE  OSIT 

TOT!  


HULTIPLBCARDLArOUT 

For  uu  tl  ill  loin,  m  AR  IB'),  llio  f  lopcnonl  ojimr  ii  Oliict  ol  ihi  kunm  Vlci  Chid  oi  Stoll 


Federal  Stock 
Numbar 


Nomenclature 


UM 


^uan 


Actvty 
Code 


n«sni  iioiii;i]nititiiiiii:j2i!2»;<g?6;;aaM]n? 33 jt 35 35 3; 3J 33 « <i 4; « « (s « \) « <3 m  11 « 53 « si m 5; m 50 ti 62 0 tt 65 m ei me?  10 ;i i7i3 is ii'is  15 k 


:  H  S  >  1  ma  II  IZOUli  It  11 II  13  20  21  22  23  2<  25  25  21 23  J9  30  31 32  33  3^  35  36  31  3«  3S  iD  (I  « \l « !•  « (M8  (S  50  il  52  ij !5  ;5  51  53  53  60  El  E2  ^  6U5  6«  6/ M  65)0  )l  nmn  K  11 « )9  K 


HH}nHl1lll2llHl!l{|)l|li202l22  232<  25  2t  21  ?!  29  30  31  32  33  3^  35  36  31  3!  35  m\  « (3 « <5 16<;  W  « 50  il  52  53  5<  55  56  :i  51  59  60  61  52  63  64  65  66  6  1  68  69 10 II 22 13  U  Ull  Il'lJ  N 


2  10t  I  MIO 1112 13MI5 16 111119  20  21  2:  23  2<  25  26  23  21  29  30  31  32  3  3  3(  35  36  31  31  19  <0  <l  (2 «  0  (5 « II «  w'so  51  52  53  5<  5!  5{7l  51  59  60  6  1  62  63"67t5  K  61 H  63  l7ll'  12  Il''l^  ;5  If 11  m 


n  3n  E  3  MiOIII2l3in515IIin9:0  2l22  23  2<  25  2(  2I  28  29  303l  32  3]3n  5  36  3l31]S^O<2ti4<<5ri«<}50ilS2  53  «  55  5{5;5i  5  3  60  EI52t^^ 


II  IS  30 


gA,r..3165 
cERLC 


D0( 


UNITED  STATES  ARMY 
INSTITUTE  OF  ADMINISTRATION 

MAY  1978 

PERFORMANCE  TEST 

DEBUGGING  A  COBOL  PROGRAM  USING  ALC 


X 


Name 


Student  Number 


Class  Number 


INSTRUCTIONS: 

INDIVIDUAL  WORK  IS  MANDATORY.  Appropriate  disciplinary 
action  will  be  taken  again^,:  siiuk'nis  wiio  give  or  receive  uriauthori/.ed 
help. 

2.  Special  instructions  are  listed  i>m  [j.ige  1  of  this  booklet. 

3.  Insure  that  your  class  and  student  [Uimber  arc  on  the  individual  grade 
sheet  and/or  punchee  cards. 


DEBUGGING  COBOL  PROGRAMS 


Programs  which  do  not  go  to  a  normal  end  of  job  are  canceled  by  the  operating 
system,  and  are  considered  to  have  abnormaUy  terminated  (ABEND) .    when  this 
happens,  page  1  of  the  program  listing  will  contain,  among  other  items,  a 
system  oompleticn  code  (See  Incl  1) .    ihe  completion  code  is  an  indication  of 
what  caused  the  program  to  ABE^©.    Pillowing  is  a  list  of  the  most  commonly 
encountered  system  completion  codes,  a  description  of  each,  and  an  indication 
of  the  probably  cause  of  the  ABEND.    Those  causes  marked  with  an  asterisk  (*) 
should  be  checked  first.  -         v  / 

COMPLETION  CODE  -  001. 

a.  Error  Description. 

Input/Output  error - 

b.  Probable  Causes. 

(*)  Wrong  length  record. 

(*)  Wrong  length  physical  block. 

No  end  of  file  marker. 

(*)  Attempt  to  read  record  after  end-of-file  condition  found. 
Physical  damage  to  recording  medium. 
Device  malfunction. 

(*)  Atterrpt  to  read  from  or  write  to  a  file  which — 

(1)  Is  closed. 

(2)  Was  not  opened. 
CQMPLCTION  CODE  -  013. 

a.  Error  Description. 

Detection  of  ccxiflicting  or  unsupported  parameters  during  OPEN 
processing. 

b.  Probable  Cause. 

(*)    Check  for  incorrect  external  name  in  a  SELE)CT  statemait. 
COMPLETION  CODE  -  031. 

a.    Error  Description. 

An  input/output  error  was  detected  when  processing  under  the 
indexed  sequential  access  method  (ISAM) . 
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b.    Probable  Causes. 

Physical  damage  to  recording  medium  or  device. 
(*)    Out  of  sequence  key  when  loading  an  ISAM  data  set. 
(*)    Wrong  length  record' or  block. 
OOMPLCTION  gjDE  -  03B. 

a.  Error  Description. 

Ttie  error  occurred  during  OPEN  processing  for  an  indexed  sequential 
file  (ISAM). 

b.  Probable  Causes. 

(*)    The  file  had  not  been  created. 
Ihe  file  had  not  been  closed  after  creation. 
COMPLETION  CODE  -  03D. 

a.  Error  Description. 

The  error  occurred  during  OPEN  processing  for  an  indexed  sequential 
file  (ISAM). 

b.  Probable  Causes. 

Indexed  sequential  organization  not  specified. 

(*)    Check  for  omission  of  "ACCESS  IS  RANDOM"  clause  in  select 
statement  for  ISAM  file. 

COMPLETION  CODE  -  OCl. 

a.  Error  Description. 

The  operation  code  detected  is  not  valid. 

b.  Probable  Causes. 

A  branch  to  a  data  area;  fetching  of  data  as  an  operation  code 
for  this  instruction. 

(*)    A  missing  or  misspelled  external  name  on  SELECT  statement. 

(*)     A  file  had  not  been  opened  when  an  input/output  instruction 
was  issued  for  it. 

A  file  had  been  closed  v^en  an  input/output  instruction  was  issued 
for  it  (this  may  also  cause  an  0C5  termination) . 
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CCMPLETION  CDDE  -  OC5. 

a*    Error  Description. 

X  ?hf o^^^•^  specified  that  is  outside  of  the  available  storage 
of  the  particular  computing  system. 

'o.    Probable  Causes. 

Invalid  data  address. 

(*)    Indexing  (subscripting)  outside  the  program's  assigned  limits. 

ixLptiir^^OT)  !^  subscript) .    i^is  may  also  cause  a  data 

J^I^.M?'^^'^''^^^  instruction  triggered  termination  because  OPEN  was 
unable  to  oonplete  its  task. 

A  missing  or  misspelled  external  name  in  SELECT  statement. 
An  attempt  to  CLOSE  a  Eile  a  second  time. 

^^Y'  ^  ^""^  operation  is  being  attempted  with  an  incorrect 
cataloged  procedure. 

^  f '^"^V'^^  reference  an  input/output  area  before 

READ  or  OPEN  statement  has  been  issued  for  the  file. 

COMPLETION  CODE  -  0C7. 

•a-    Error  Description. 

S^pr^ess^it!"^  incorrect  format  Eor  the  instruction  attempting 

b.    Probable  Causes. 

""^t         initialized,  e.g.,  blanks  were  read  into 
a  field  designed  to  be  processed  with  packed  deciinal  instructions. 

A  packed  decimal  field  had  an  incorrect  sign  field. 

IMnitialized  index  or  subscript.  This  may  also  cause  an  addressinq 
(0C5)  or  protection  (0C4)  completion  code.  aaaressing 

Fields  in  decimal  arithmetic  overlap  incorrectly. 
The  decimal  multiplicant  has  too  many  high-order  significant  digits. 
referSJced^^^hifc^J^f  was  incorrect  and  invalid  data  was 
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COBOL:    Data  was  moved  from  the  DISPLAY  field  to  the  C30MPUTATI0NAL 
or  OOMPUTATIONAL-3  field  at  groi?>  level.    No  conversion  was  performed? 
invalid  data  for  COMPOTM'lONAL-3  (packed  decimal)  results. 

CCBOL:    The  figurative  constants  ZERO  or  DOW-VMiUE  was  moved  to  a 
groip  level  numeric  field.. 

COBOL:    Qnission  of  USAGE  clause  or  inclusion  of  an  erroneous  USAGE 
clause. 

BDR  USAIA  USE:     (See  Incl  1) 

a.  Extract  Program  Interruption  Address  (PiA)  from  page  1  of  program 
listing. 

b.  Determine  entry  point  (EPA)  for  program  from  page  1  of  program  listing. 
It  will  be  either — 

(1)  01C020. 

(2)  034020. 

c.  Subtract  EPA  from  PIA-    The  result  is  a  displacement.    Remember,  all 
addresses  are  in  hexidecimal  as  is  the  displacement.    Now  go  to  the  page  in  th^ 
listing  which  has  the  heading  'CONDENSED  LISTING".    Each  verb  used  in  the 
source  program  is  listed  and  has  associated  with  it,  a  statement  number  and  a 
displacement.    lb  find  the  statement  which  caused  the  program  to  ABEND,  locate 
the  displacement  on  the  condensed  listing  which  most  nearly  matches  and  is 
less  than  the  displacement  you  just  calculated.    The  corresponding  stat^ent 
number  is  the  one  which  caused  the  prc±»lem.    Now,  go  back  to  the  probable 
cause  paragraph  and  correct  problem. 

COMPLETION  CODE  -  0C9  OR  OCB. 

a.  Error  Description. 

Divide  exception. 

b.  Probable  Cause. 

Attempting  to  divide  by  zero. 
OOMPLEriON  CODE  -  D37. 

a.  Error  Description. 

Space  allocated  for  a  data  set  on  a  direct  access  device  was  exceeded. 

b.  Probable  Cause. 

The  program  may  be  in  a  loop  and  is  writing  an  infinite  number  of 
records  bo  an  output  file. 
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OOMPLCTION  CDDE  -  222 


a-    Error  Description. 

Operator  canceled  the  job. 
b.    Probable  Causes. 

The  job  may  have  been  canceled  because  it  appeared  to  be  in  a  loop 
or  because  it  was  waiting  for  resources  that  were  not  irnnediately 
available.    Perhaps  the  job  was  canceled  to  correct  a  system  inter- 
lock condition.    There  are  many  reasons  why  an  operator  might  cancel 
a  job.    ihere  may  be  nothing  wrong  with  your  program. 

COMPLETTION  CODE  -  322. 

a-    Error  Descripticai. 

Execution  of  a  program  took  longer  than  the  time  allocated, 
b.    Piobable  Cause. 

Program  is  in  a  loop. 


//TCELKES  JCE 


iHF342I 
icF373I 
i£F274I 
l£FtA2I 
iEF373I 
ieF37AI 
CONTROL 


(Coe  lie  EE  I  5  I  2  t  t  T  tN  f  )  T 

8' ,CL^SS=E,^5GL£VEL=(- 


-  STEP  KAS 

STfcp  /cce 

STeP  /cce 

-  STEP  Was 

STEP  /LKtC 
STfcP  /LKfcC 


tXtCLTEC  - 
/  £1*RT 
/  SICP 

EXECUTfO  - 
/  Sl^RT 
/  SICP 


CCNO 

76' 


-  C 


JCE  9ii 
25166 


5a.155c.c  e2K  lcs  ck 


CPL 
-TIV6  l<9  =  2 
US£R>OOCO 
LOCATION  03517C 


EYTE=CO     TCS  FLAG5=A 
COUPLET ICN  CQDc  -  SYSTE««0C7 
PR06RAH  INTERRUPTION  (DATA)  AT 
ftEGISTER  SET  1 

SF8  0-7       0CO2'«iEEA    00035176     0C02^6C^  00035^50 
GFJiS-lS       000''iF36e     000<iF220     OOO-^ECS.  00034,2 
INSTRUCTICh   IMAGE     F271D1D06  09F91lCiC6Ci 50 
FFR  0-4       OOGOflCOQ     OCOOOOOO     00000000  O^CwCCCv. 
ACTIVE  RE  LIST 


CK 


INTERRUPT 
ADDRESS 


<2003<teOe     000345 /d 


000343C8 
4..  34CA 


CCCwC-Uv.     uvUwV\*uC(  CuOvjOCOC 


FRCGRAH.  IC=         eOlC     (<6  TYFE^DO 
8ESUME  PSW     SM=   .     K=  AHWP=A 
PROGRAM  1D=CGE  RE  TYPE=00 

RESUME  PSW     SM=FF     K=3  AMWP=5 


1EF242I 
1EF237I 
ief237I 
ieF237I 
I£F237I 
IEF237I 
I£F237I 
IEF2a5I 
iE.F285I 
IEF2a5I 
IEF2a5I 
I£F2e5I 
lEFZeSI 
lEF2e5I 
IEF28SI 
ieF273I 
lcF37AI 
lEFSeSI 
iEF2a5l 
ieF375I 
I£F376I 


ALLCC.   FOP  TCELKES 


143 
211 
212 
lAl 
141 
143 


allccated 
allocated 
allccateo 
allocated 

ALLCCATfcD 
ALLCCATEO 


ENTRV  PClNT»0Oe2Fe 
10=0007     IL+CC=5  FM=i 

(ENTRY  POINT>034020 
IC=OO0D     U+CC=C  FKsu 
C08  AT  ABcNC 


GO 

TQ  PG«»*,CD 

TC  SYSCLl 
70  SYS005 
TO  CYSC06 
TD  5YS007 
TO  SYSOOE 

SYS78082.T122344  .R  FOOD.  T06L  KE-' S  .GQSET 
VOL  SER  NOS=  MFTWK3. 

USA lA. SOFTWARE. CATASET. 012 
VOL  SER  N03=  MFTl>Kl. 
USAIA.SQFTUARE.DATASET.013 
VOL  SER  NQS=  MFTViKl. 

SYS780a2.T12i344 .RFOOO . lOEL KES . T tMP 
VOL  SER  NOS=  f'FTl>K3. 
STEP   /GO  /  START  78082.1234 

STEP   /GO  /  STCP     78082.1335  CPL 

SYS7  80  82.T122344 .RFOOO . ICE L KES . GQSE T 
VOL  SER  NOS=  MFTWK3. 
JOB  /TCELKES   /  START  78082.1329 
JOB  /TCELKES   /  STOP     78062.1335  CPL 


ENTRY  POINT 
ADDRESS 


SUBTRACT  THE  ENTRY  POINT  ADDRESS 
FROM  THE. INTERRUPT  ADDRESS: 

Q3517C 
-  034020 


001150 


HIN  03.04SEC  M/IN 
DELETED 


MN  59.4ESEC 


16K  LOS 


OK 
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Wo 

1 

I 
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CCNDcH5£0  LISTING 


OOOBOA 
O0O068 
C00094 
000006 
OOOCEA 
00001 A 
ObOQ^A 
OO0D7A 
OOODAA 
000004 

oooeOo 

0O0E2A 
O0OE74 
000EA4 

-POO  FDA 

000F2Z 

0CCF54 

0OOF76 

0O0F9O 

0-001=06 


USING  THE  CONDENSED  LISTING, 
DETERMINE  THE  COBOL  STATEMENT 
CAUSING  THE  INTERRUPT. 


ooioee 

0O1122 
001156 
001108 
001182 
00  1 1 F  £ 
COIZOA 
001268 
OOlZCA 


197 

prp  FORM 

202 

CV\K  RCA 

ceo 

206 

HA  A  P  A  J 

212 

STOP 

vU  V  ^  O 

216 

220 

MOVE 

060r 

WW  V 

22A 

If 

V/VW  V»  V  w 

228 

IF 

AAftr  c A 
w  wi*  r  V 

2il 

IF 

WW  w 

234 

IF 

00005G 

237 

IF 

Q00060 

^^^^^ 

2^0 

PEAFQRK 

0OOO9O 

246 

MOVE 

QCQQF4 

2  50 

EXIT 

OOOEIE 

255 

£>IT 

CiD0E6& 

259 

PE^tFQR^ 

000 c 80 

261 

0£)0e 

264 

perfqrh 

WW*, 

269 

JiOV£ 

f)/5ri  F  i  A 
vVU  •  1  w 

273 

Hqve 

OAl!)F  ^  P 

276 

IF 

279 

282 

I  F 

285 

288 

HOVE 

AP 

292 

EXIT 

O0107< 

297 

HOVE 

OOloec 

202 

MOVE 

oolo&e 

305 

IF 

OOIOCC 

206 

MQV£ 

00x100 

311 

PERFCRM 

O0ii3i 

216 

WRITE 

0C116Q 

323 

MOVE 

001 1  c  f 

326 

KOVE 

0011 £C 

3£9 

MOVE 

DOiiFE 

332 

HOVE 

001229 

335 

IF 

0012  6^ 

340 

40D 

00  1  30  6 

^STATISTICS*           SOURCE  RECORDS   =  -42 

*OPT10Nb    \n  EFFECT*  SI2=   =       66  16     SLF  = 

^OPTIONS    IN   EFFECT*  ^CC^';sP,  NCRMftF  ,  CLI«7. 

*LFTI0NS   IN  EFFECT*  2ue 


CATa  CIVISIC^   STATEftENTS  =  lol 
8192     ETNeCNT  =   57  SF^iCEI, 
SUPN^F,   NCXHtF,        LOAD,  NC 
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0 


00292 


EXIT 


V7/ 


002S3 

00295 
00296 
00257 
602^8 
002^9 
OO300 


0Q3tl 
00302 
OO30  3 
00304 
00305 
00306 
0O307 
00308 
00309 
00310 
00311 
00312 
00313 


00314 
00315 

00316 
00317 
00318 
00319 
00320 
00231 
O032  2 

002  2  3 
00224 
00325 
00326 
00327 

;  00328 
!  00  32  9 
I  003  30 
I  00321 

003  2  2 
003S3 
00234 
00335 
00236 
00337 
0O338 
00339 


0066-O.tLETp. 

MGVE   'CUN'   to  WS-QM-REAC-ffV^, 
V^S-TR/Ne-ftEAD-SW. 

HOVE   It101-6^i-RCD  TO  OM  l-NEyhRCD. 

MOVE   'DELETICN'  10  WS-DL-STATUS. 

PEI^FORM  OOeO-WRITE  THRU  OOSO-EXIT, 
0060-exiT. 

EXIT. 


OO70-E(\RQK. 

Move  'CKN*   to  WS-TRAMS-RP/iD-SW. 
MOVE   nOl-TPANS-KCD  TO  CHI  1-NEM-RCD. 
HOVE   '5*0  UFO*  TC  WS-DL-STATUS. 
IF   ITOl-PAV-TEST  EOOAL  SPACES 

MOVE  ITOl-PAY-lEST  TO  WS-DL-FA V-Efi P . 
IF   ITOl-FIC^-TEST  EQUAL  SPACES 

MOVE   ITdl-FICA-TEST  TC  WS-DL-F  ICA-f  f^R . 
IF   ITOl-IRS-TEST  EO^iM  SPACES 

MCVE   IT01-IK5-TEST  TO   WS-DL-IRS-EHR . 
PER.FORM  OOfiO-WRITE  THRO  O06O-EXIT. 
0070-EXIT.   


0080-hMTE. 

IF  WS- LINE-COUNT  GREATER  THAN  19 

WRne  CROl-FRINT-fiCD  FRCK 

WS-R£ADING-LINe-l 

AFTER  ADVANCING  ChA?Jl 
KRITe  Crt01-PRI^T-RCC  FRCM 

V^S-f^OING-LlNt-2 

AFTcR  AOVANCIN&  2  LINES 
MOVE  ZERC  TO  WS-L I NE-C QUNT . 
MOVE  QHOl-SSNl  TO  US-OL-SSNl. 
MOVE  a^l0l-SSN2   TO  V/S-CL-SSN2. 
MOVE  aM01-SSN2  TO  WS-CL-SSN3. 
HOVE  OMOI-NAME  TO  WS-CL-^AME. 
MOVE  QMOl-IN  TO  WS-OL-IN. 
^^QVh  QMOi-ST-ADD  TQ  WS-OL-ST-iCC. 
MOVE  QMOl-CITY  TO  WS-DL-CITV. 
MOVE  QMOi-JC-CCDE   TQ  WS-CL- JC-CQCE . 
IF  QMOl-PAY  NUMERIC 
MOVE  GM01-P>-Y   TO  WS-CL-FAY. 
IF  QMOi-FICA  NUMERIC 
MOVE  CMOl-FICA  TU  V/S-CL-FICA. 
IF  Cy«.J-IRS  NUMERIC 
MOVE  OMOA-IPS   70  W§-CL-IrS. 
WRITE  CROI-FRINT-RCC  FRQ^\ 

WS-DtTAlL-LlNE 

AFTER  ACVANCIN&  2  LINES. 
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O0O87 


05  FULcR 


FIC  X(jl). 


0^088 
00069 
00090 
00091 
O0O92 
00093 
00094 
O0095 
O0O96 
00097 
00098 
00099 
OOLOO 
00101 
O01O2 
O0i02 
00104 
00105 
O01O6 


0014 
001  il 
001x2 
00113 

00115 
O0ii6 


FD  Oht-NEf1-FIL£ 

BLOCK  CONTAINS   5  RECCBDS, 
RECORD  CONTAINS   80  CHARACTcBS, 
LABEL  R6CCRDS  MRB  STflNDARD, 
DATA   RtCQRO   IS  OHOl-NtM-RCC . 

01     GH  l-NEN-BCC. 
05  CMOi-SSN. 

16  arioi-ssNi 

10  0M01-SSN2 
iO  0^^C>l-SSN3 

OMOi-NA^'E 

OMOl-IN 
OM0i-ST-/DD 
CMOl-CITY 
CMOl-JC-CODE 
OMOl-PAV 
OMOl-FICA  ■ 
OMOI-IRS 
FILLER 


05 

fis 

05 
05 
05 
05 
05 
05 
OS 


HORKING-STORAGE  SECTIGM. 
77  WS-TRANS-READ-SW 

VALUE  *OHH', 

77  WS-CM-REAO-SW 

VALUE  •ONN". 

77  WS-RcAD-COM-Sk/ 

VALUfc  'OFF*. 

77  WS-LIME-COUNT 

77  US-NINES' 

VALUE  9??9^?999, 


FIC  9C3). 
FIC  9(2). 
FIC  9(4). 
PIC  X(i4). 
FIC  X(2). 
FIC  X(£9). 
FIC  X(14). 
PIC  X(l). 
FIC  S9(5)V9(2) 
FiC  S9(3)V9(2) 
FiC  S9(5)V9(2) 
FIC  Xd). 


PIC  X(3) 
PIC  X(3> 
FIC  X{3) 

PIC  9(27. 

FiC  9(9) 


00117 

ocais 

00119 
O0120 
OOlZl 
001Z2 
b03i3 


Ox     WS-PEAOIKG-LINf-i . 

05     FILLER  PiC  X(54) 

VALUE  iPACE. 
05     WS-PDl-TITLc  PiC  X(24) 

VALUE.   'OaC   piaster  update  fiePQR.T 
05     FILLER  PIC  X(55) 

VALUE  SPACE. 


0OiZ4 
d)0  12  5 
00126 
00127 
0012  8 
001Z9 
00130 
00131 
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01  ws- 

READING- 

LiNE-i. 

05 

FILLER 

VALUi 

05 

FILLcR 

VALUE 

05 

FILLER 

VALUE 

05 

FILLcR 

PIC  X(5) 
PIC  X(12) 
FiC  X(i8) 
FIC  X{i3) 
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HISTORY  OF  COMPUTERS: 

The  first  type  of  computing  machines  that  were  used  were  the  punch  card  ma- 
chines.   These  machines  used  plugboards  to  store  their  programs.    They  were  compara- 
tively slow,  had  very  limited  capabilities  and  had  no  internal  storage. 

The  PCM  were  followed  by  the  first  generation  computers.    These  were  big, 
relatively  slow  vacuum  tube  machines.    All  programming  for  these  machines  was  done  at 
the  machine  language  level.    They  were  single  job  initiation  machines  and  were  used 
mainly  as  scientific  calculators. 

About  1955-56,  the  second  generation  machines  emerged.    These  had  transistors 
Instead  of  tubes  and  were  faster  than  their  first  generation  predecessors.    It  was  dur- 
ing the  second  generation  that  compiler  level  languages  such  as  COBOL  and  FORTRAN  were 
developed.    The  second  generation  machines  had  a  batch  job  capability  and  were  the  first 
of  the  general  purpose  machines.    They  were  now  used  for  Business  Data  Processing  as 
well  as  scientific  calculators. 

Time  marches  on. ...about  1961,  enter  the  third  generation  machines  replacing 
the  transistor  with  semiconductor  circuits  once  again  increasing  the  speed.  Magnetic 
core  was  also  being  produced  relatively  cheaply  so  these  computers  had  large  core 
memories . 

All  of  these  changes  did  not  come  without  some  problems,  most  of  which  smarted 
in  the  second  generation.    The  hardware  technology  was  ahead  of  the  software  support  so 
there  was  an  inefficient  use  of  the  hardware.    Large  computers  were  not  effective.  Many 
of  their  resources  such  as  memory  and  I/O  devices  sat  idle  a  lot  of  the  time.    There  was 
too  much  human  intervention;  too  much  interaction  between  man  and  machine.    Even  though 
there  was  too  much  interaction  between  man  and  machine,  there  was  no  way  for  man  to  in- 
teract with  man  thru  the  machine,  in  othe--  words,  there  was  no  way  to  link  one  program 
to  another. 
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The  solution  to  these  problems  was  an  operating  system.    An  operating  system 
is  an  integrated  set  of  programs  designed  to  improve  overall  operating  effectiveness. 
The  purpose  of  an  operating  system  is  to  increase  the  amount  of  data  processed  in  a 
given  amount  of  time.    An  operating  system  will  not  reduce  the  execution  time  for  a 
single  program*    Over  the  years  there  have  been  many  operating  systems.    One  of  the 
first  was  the  Share  Operating  System  (SOS)  written  by  a  group  of  IBM  users.    The  SOS 
did  not  pan  out.    IBM  produced  IBSYS  for  its  7090  line  of  computers.    This  was  about 
1959.    In  1961,  Burroughs  introduced  the  Master  Control  Program  (MCP).    It  was  the  first 
of  the  third  generation  operating  systems.    It  was  not,  however,  until  about  1963  when 
IBM  announced  DOS  and  OS  that  operating  systems  were  really  here  to  stay.    There  are 
three  basic  sources  for  operating  systems.    The  first  and  least  common  is  the  user  group, 
the  time  and  expense  (about  $60,000,000  for  DOS)  make^^it  almost  impossible  for  a  group 
of  users  lo  produce  their  own  system.    The  second  source  is  the  Academic  World. 
Universities  often  write  their  own  special  application  systems  using  the  wealth  of  re- 
search personnel  on  their  faculties  and  any  free  graduate  students.    The  last  and  most 
common  source  of  operating  system  is  the  hardware  manufacturer.    Almost  all  operating 
systems  come  from  this  last  source.    There  are  three  basic  requirements  for  an 
operating  system.    The  first  is  a  control  program  to  control  all  the  systems'  resources. 
The  second  is  a  language  for  man-system  communication  and  finally  a  software  library 
and  some  means  for  retrieving  pro^jrams  from  that  library.    Not  all  operating  systems 
v/ill  have  all  of  these  requirements  in  a  very  obvious  form  but  these  three  needs  will 
in  some  manner  be  present  in  every  operating  system. 

Reduction  in  Costs:    One  of  the  -^irst  computers  designed  and  built  costs 
$500,000,  had  18,000  vacuum  tubes,  weighted  30  tons  and  was  named  "ENIAC".    Today,  a 
microprocessor  can  have  the  same  computing  power  of  ENIAC,  can  be  the  size  of  a  baby*s 
fingernail  and  cost  $10. 
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TYPES  OF  OPERATING  SYSTEMS: 

BPS  (Basic  Programming  Support)  -  a  minimum  system  resident  in  cards  or  tape 
for  use  in  installations  having  no  disk  files.    Support  Assembler  Language  and  RPG. 

BOS  (Basic  Operating  System)  -  A  disk  resident  system  supporting  Assembler 
Language  and  RPG,  with  sufficient  capacity  to  satisfy  requirements  of  small  installations. 

TOS  (Tape  Operating  System)  -  A  tape  resident  system  offering  the  capabilities 
of  supporting  all  languages  plus  multiprogramming,  storage  protection,  and  the  internal 
timer  wi th  no  disk . 

DOS  (Disk  Operating  System)  -  a  disk  resident  system  for  users  requiring  more 
advanced  operational  support  than  that  of  TOS.    Supports  all  languages  as  well  as  remote 
processing,  storage  protection,  multiprogramming,  and  the  interval  timer. 

OS  (Operating  system)  -  a  disk  resident  system  that  provides  for  the  assignment 
of  devices  ano  auxiliary  storage  space  at  execution  time.  Provides  for  multiprogramming 
fifteen  seperate  joDs  ar  orid  time.  Also  provides  an  internal  SPOOLing  capability  as  well 
as  a  priority  sciieauling  system. 

OS/VS  (Operaiing  Sysiem  /  Virtual  Storage)  -  a  disk  resident  system  that  uses*  a 
Direci  access  storage  device  to  simulate  a  larger  memory  capacity  tnan  tiie  machine  really 
nas.  For  example  a  System  370/1  of)  witn  bl  1^,000  oytes  of  real  memory  can  be  made  to  per- 
form as  thougti  it  naei  ^,UUO,OUO  bytes  of  real  memory. 
OPERATING  SYSTEM. 

An  Operating  System  -  intergrated  set  of  programs  designed  to  improve  the  total 
operating  efficiency  of  a  computer's  operation. 

Functions  of  the  Operating  System. 
Scheduling  of  I/O  operations 

Protection  of  partition  boundaries  (required  for  mul tiproqrdmining ) 
Error  handling  as  referenced  to  the  five  interrupts. 
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Machine  check  interrupt 
Supervisor  call  (SVC)  interrupt 
Program  check  interrupt 
External  interrupt 
I/O  interrupt 
Operator  communication  with  CPU. 

Provide  for  program  loading  from  private  or  system  core  image  library. 
Provide  for  program  termination. 
REQUIREMENTS  OF  THE  OPERATING  SYSTEM. 
A  control  program  (supervisor) 
Library  facilities 

Core  image  library 
Source  statement  library 
Relocatable  library. 

A  device  v;hich  provides  a  nieans  for  communication  batween  the  operating  system 
and  the  computer  operator  (console  typewriter). 

NOTE:    These  libraries  will  be  present  in  the  operating  system  in  some  form. 
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V.    Types  of  programs  which  make-up  the  operating  system, 
a.    Initial  Program  Load  (IPL) 

INITIAL  PROGRAM  LOAD 


MAIN  MEMORY 


SYS  RES 


IPL  -  is  loaf'-i  by  the  operator  dialing  the  address  of  SYS  RES  on  the  CPU  and  pressing 
the  console  load  key.    The  loading  of  IPL  is  a  machine  function,  no  instructions  are 
executed.    After  the  IPL  is  loaded,  it  is  given  control  ,  of  the  machine.    At  this  time 
IPL  clears  main  memory  and  the  registers,  loads  the  supervisor  in  the  low  core  of  main 
memory  and  passes  contrrl  to  the  supervisor.    When  these  tasks  are  accotT">l ished,  IPL  has 
no  further  usage. 
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AT  The  time  when  the  supervisor  is  given  control  of  the  machine,  the  computer  operator 
setsthe  date  and  time  of  day  to  be  used  by  the  supervisor  and  Problem  Programs.    He  may 
also  add  or  change  the  I/O  device  assignments  in  the  Logical  Unit  Block  (LUB)  and  Physi 
cal  Unit  Block  (PUB)  of  the  supervisOT.     Finally,  he  can  change  the  partition  sizes  of 
the  partitions  allocated  to  the  machine  by  entering  an  ALLOC  statement. 
EXAMPLE: 

OIIOA   Give  IPL  Control  commands 
SET  DATE  =  DD/MM/YY,  ciock=HH/m/SS 
01 20 I  DOS  IPL  Complete 
At  this  point  control  is  given  to  the  control  program  (Supervisor) 

The  supervisor  loads  the  Job  Control  Program  into  the  Backgrounr'  partition.  Job 
control  finds  the  standard  assignment  for  SYSRDR  in  the  LUB  and  PUB.    Next  it  read  the 
job  control  statements  from  the  card  reader  (SVSRDR)  performs  the  following  functions: 

1.    Assigns  device  addresses  to  symbolic  units. 

2-    Set  up  fields  in  the  communication  region. 

3.  Edit  and  stores  label  information. 

4.  Prepares  for  restarting  checkpoints  programs. 

5.  Clear  the  problem  area  to  binary  zeros  between  job  steps. 

6-    Finally,  it  passes  the  name  of  the  program  to  be  executed  to  the  System  Loader. 

7.    Control  is  then  passed  to  the  Supervisor. 
When  the  supervisor  is  given  control  from  the  Job  Control  Program,  the  System  Loader 
goes  to  System  Residence  Pack  (SYSRES) ,  Core  Image  Library  and  fetches  the  program  to 
-be  executed  by  placing  it  into  main  memory.    Next  the  address  of  the  '^irst  executable 
instruction  is  stored  in  the  Control  Unit  of  the  CPU. 
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Finally,  the  problem  program  1s  given  control  and  begins  execution. 

The  preceding  "process  explains  what  happens  in  the  computer  to  start  a  problem 
program  executing  in  the  Background* (BG)  partition. 

In  order  to  start  jobs  in  the  Foreground  1  (Fl)  and  Foreground  2  (F2)  partitions, 
the  operator  must  press  the  request  key  on  the  console  typewriter  and  nnter  the  fol- 
lowing statements: 

AR     BATCH  Fl 

FI     ASSGN  SYSXXXJ^CUU' 

PRESS  THE  REQUEST  KEY 

AR     BATCH  F2 

F2     ASSGN  SYSXXX,XXUU' 

This  process  caused  the  Job  Control  Program  to  be  loaded  in  the  Fl  and  F2  par- 
titions. Once  Job  Control  is  given  control,  it  repeats  the  steps  indicated  above 
v^hich  cause  the  problem  program  to  begir  executing  in  each  partition. 

The  Job  Control  Program  is  written  over  in  the  partitions  by  the  problem  program 
being  loaded  into  the  partition  by  the  System  Loader,    When  the  problem  program  ends 
execution  (Stop  Run),  control  is  given  to  the  Supervisor-    The  supervisor  reloads 
the  Job  Control  Program  into  Lhe  partition  of  the  program  that  ended  execution  u.iip- 

ing  out  the  program.     ob  'ontrol  then  reads  SYSRDR  to  obtain  the  Job  Control  state- 
ments for  the  next  task  to  be  performed.    This  process  continues  until  all  jobs  in 
the  input  have  been  processed  through  the  computer. 
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WLTIPROGRAMMING  -  concurrent  excution  of  two  or  more  programs  simultaneously 
residing  in  core  storage  of  a  computer. 
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b.  Control  Program  is  the  backbone  of  the  operating  system  and  is  composed  of  the 
following  components: 

(1)  Job  Management  -  identifies  the  job  to  be  done  and  assigns  I/O  devices 
for  the  problem  program. 

(2)  Task  Management  (supervisor)  brings  in  the  problem  program  from  the 
library  and  respor':^^  to  any  error  conditions  by  unloading  one  program  and  going  on  to 
the  next  one. 

c.  Data  Management  -  handles  movement  of  data  between  main  storage  and  I/O  devices. 
This  also  includes: 

(1)  Scheduling  and  programing  the  operation  of  channels. 

(2)  The  identifications  of  data  by  volume  (the  device  in  which  data  is  stored 
such  as  a  reel  of  tape,  or  a  disk  pack) 

(3)  The  resolution  of  error  conditions  that  occur  during  the  movement  of 

data. 

(4)  Data  Management  is  composed  of  the  Input  Output  Control  System,  (referred 
to  as  IOCS) 

(a)    IOCS  is  a  set  of  routines  (programs)  that  handle  the  movement  of  data 
between  main  storage  and  I/O  devices.    These  IOCS  routines  fall  into  two  categories: 

(I)  Physical  IOCS  (PIOCS)  -  is  composed  of  those  I/O  routines  which  supervise 
the  reading  and  writing  of  data  on  I/O  devices  without  regard  for  its  logical  content, 
format  or  organization. 

(II)  Logical  IOCS  (LIOCS)  -  Once  the  data  has  been  brought  from  the  I/O 
device  by  PIOCS,  the  LIOCS  routines  now  operate  on  this  data  to  make  its  logical  content 
available  to  the  problem  program  as  required. 
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File  Access  Methods. 
(I)    Sequential  access  method  -  sequential  processing  is  used  to  read/write 
and  process  successive  records  in  a  logical  file. 

(II)    Index  sequential  access  method  -  an  index  sequential  file  is  built  from 
sequential  input  and  has  indexes  that  permit  individual  records  to  be  found  for  sub- 
sequent processing  operations.    By  supplying  the  key  of  any  record,  a  programmer  can 
obtain  the  specific  record  randomly. 

(III)  Direct  access  method  -  records  are  usually  organized  in  a  random  manner 
and  are  processed  by  referring  to  a  record  location  reference  supplied  in  the  problem 
program* 

This  location  reference  indicates  the  exact  record  by  track  and  key  or  identifier. 

(IV)  Basic  Teleprocessing  Access  Method  (BTAM)  controls  transmission  and  re- 
ception of  messages  over  the  communication  lines  in  response  to  READ  and  WRITE  macros. 
The  LIOCS  technique  of  accessing  the  file  is  not  extended  to  the  problem  program. 

(V)    Queued  Teleprocessing  Access  Method  -  has  the  same  capabilities  as 
BTAM  with  the  addition  of  LIOCS  technique  of  accessing  the  file  by  the  problem  program, 
(c)    Processing  Programs. 

(I)    Language  processor  -  are  programs  which  use  as  input  source  programs  and 
interpret  them  into  a  machine  compatible  language. 

(a)  FORTRAN  cc.ipiler 

(b)  RPG  compiler 

(c)  COBOL  compiler 

(d)  PL/ 1  compiler 
(e^)  ALC  assembler 
(f)    6PSS  compiler 
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^  (d)    Utility  programs  -  generalized  programs  which,  through  the  use  of  a  control 
card,  can  perform  a  specific  function. 
(I)    Card  to  tape  utility 
(II)    Tape  to  print  utility 
(III)    Disk  to  print  utility 
(VI)    Sort/Merge  . .  .etc. 
(V)  Autotest. 

(e)    Service  programs  -  generate  the  system,  create  and  maintain  the  library  sec- 
tions, and  edit  programs  into  disk  residence  before  execution. 

(I)    Link  Editor  Program  -  prepares  programs  for  entry  into  the  core  image 
library  by: 

(a)  Assigning  final  main  storage  addresses  to  data  and  instructions. 

(b)  Incorporating  subroutines  from  the  relocatable  library,  as  requested 

by  the  prcgramer  and  combining  separately  written  sections  of  the  program  into  a  single 
unified  program. 

(II)    Librarian  -Is  a  group  of  prot^  'ams  that  maintains  and  reorganizes  the 
disk  library  areas  and  provides  printed  and  punched  output  from  the  libraries.  Three 
libraries  are  used. 

(a)  Cere  Image  Library .    All  programs  in  the  system  (IBM  -  supplied  and  user 
programs)  are  in  machine  code  and  loaded  from  this  library  by  the  system  loader 
routine  of  the  supervisor. 

(b)  Relocatable  Library:  This  library  stores  object       modules  that  can  be 
used  for  subsequent  linkage  with  other  programs  nodules.    A  complete  program  of  one  or 
more  modules  can  be  placed  in  this  library. 

(cj    Source  Statement  Library.    This  library  stores  IBM-supplied  MACRO  def- 
initions and  user  defined  source  statement    routines  (such  as  MACRO  definitions)  built 
to  provide  extended  program-assembly  capability. 
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(Ill)  Librarian  Programs; 
MAI  NT 
CSERV 
SSERV 
RSERV 
C0R6Z 
LISTVTOC 

OSERV 


1-9 


CSD.SF'.J.OS 


^  ... 

i  ^90 
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Oiagram  of  PHYSICAL  UNIT  BLOCK  (PUB)  -  Where  the  mach^  .c;  address  of  the  I/O  device 
can  be  found; 


CHArlNEL 


UNIT 


POINTER  TO  CHANNEL  QUEUE 


ERROR  RETRY  COUNTER  OR  POINTER  TO  TAPE 
ERROR  BLOCK  (BOTH  TEB  AND  TEBV) 


DEVICE  TYPE 


DEVICE  OPTIONS  (TAPE  SET  MODE,  ETC) 


CHANNEL  SCHEDULER  FLAGS 


JOB  CONTROL  FLAGS 


BYTE  0 
BYTE  1 
BYTE  2 

BYTE  3 
BYTE  4 
BYTE  5 
BYTE  6 
BYTE  8 


LOGICAL  UNIT  BLOCK  (LUB)  -  Where  system  and  programmer  logical  units  are  defined; 
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SYSRLB 


SYSCLB 


*SYSPCH 


S\'S00O  -  SVSMAX 


BYTE  0 

BYTE  1 

Pointer 

Pointer  to 

to 

Job 

Pub 

Information 

Block 

*  May  be  used  in  DTF  of  ALC 


1-12 


CSD.SFW.OS 


^  ERIC 


^3 


JOB  INFORMATION  BLOCK  (OIB) 
The  OIB  contains  one  of  the  following: 

1.  LUB  entry  of  the  standard  assigntrent  when  a 
temporary  LUB  assignment  is  made. 

2.  PUB  pointer  for  an  alternate  LUB  assignment. 

3.  Extent  information  when  DASD  files  protection 
is  selected  as  a  supervisor  generation  option. 


JIB  TABLE 


JIB 

1 

JIB 

2 

JIB 

3 

JIB 

4 

JIB 

5 

JIB 

6 

Stored 

Standard 

assignment 


BYTE  0 


LUB  Entry 
of  Stored 
Standard 
Assignment 
(PUB  &  LUB 
Pointer) 
BYTE  1 


FLAG 
TYPE 


BYTE  2 


Chain  BYTE 
Contains  the 
Displacement 
Index  of 

Next  JIB. 
'FF'  defines  end  of 
Chain 
BYTE  3 
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JOB  CONTROL  LANGUAGE  (JCL) 


Whereas  COBOL  is  a  language  for  man-machine  communication,  JCL  is  a  language 
for  man-operating  system  communication.  . 

JCL  can  enter  the  system  through  many  channels.   JCL  cards  may  be  keypunched 
by  the  programmer  and  placed  into  \;hs  system  through  the  card  reader  along  with 
such  items  as  a  COBOL  source  deck,  a  punched  object  deck,  data  cards  or  any 
combination  of  these.   JCL  may  be  cataloged  in  the  Source  Statement  library  to 
be  invoked  by   SPOOLing  programs.    JCL  may  be  entered  into  the  system  by  the 
operator  thru  the  computer  console  device. 


3-1  CSP.SFW.OS 


ERIC 


STAGES  OF  PROGRAM  DEVELOPMENT 

The  term  program  is  used  to  describe  several  things.    The  programmer  codes 
sets  of  source  statements  that  may  be  a  complete  program  or  part  of  a  program. 
These  source  statements  are  then  compiled  into  a  relocatable  machine-language 
program  which,  in  turn,  must  be  edited  into  an  executable  program,  and  may  be 
combined  with  other  programs.  Consequently,  it  is  convenient  to  refer  to  each 
stage  of  program  development  by  a  particular  name. 

A  set  of  source  statements  that  is  processed  by  a  language  translator 
(Assembler,  COBOL,  FORTRAN,  RPG-  or  PL/I),  is  referred  to  as  a  source  module  or 
source  deck  (if  in  card  form). 

The  output  of  a  language  translator  is  referred  to  as  an  object  modul e  (or 
^eck).    All  object  modules  must  be  further  processed  by  the  linkage  editor 
before  they  can  be  executed  in  the  system. 

The  output  of  the  linkage  editor  consists  of  one  or  more  program  phases  in 
the  core- image  library.    A  phase  is  in  executable,  nonrelocatable,  core  image 
form. 


ERIC 
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THREE  PROGRAM  FORMS 


LINKAGE 
EDITOR 


I 


SOURCE  MODULE 


RELOCATABLE 
OBJECT  MODULE 


LOAD  MODULE  (PHASE) 
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COMPILE  -  LINKEDIT  -  EXECUTE 


The  following  represents  the  JCL  for  a  very  simple  program  that  reads  cards 

does  some  sort  of  calculations,  and  prints  out  a  report.    The  cards  bounded  by 

the  //JOB  and  the  /&  represent  what  is  called  a  jcn.  This  particular  job 

consists  of  3  job  steps  each  of  which  has  a  //EXEC  ijard  associated  with  it. 


II  EXEC 


\li  EXEC  LNKEDT 


01010    IDENTIFIC/  i'ON  DIVISION. 

(COBOL  SOURCE  DECK) 


f 


7/  EXEC  COBOL 


II  OPTION  LIST,  LOG,  LINK,  ERRS 


II  JOB  EXAMPLE 
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//  JOB  EXAMPLE 


The  JOB  statement  indicates  the  beginning  of  control  information 
for  a  job. 

FORMAT 

//  JOB       jobname     [accounting  information 

jobnanie      The  name  of  the  job.    Must  be  1  to  8  alphameric  characters 
the  first  of  which  must  be  alphabetic. 

accounting  information 

If  the  job  accounting  interface  has  been  specified  during 
system  generation,  16  characters  of  user  specified  accounting 
information  can  be  entered  in  the  job  statement.    It  must  be 
separated  from  the  jobname  by  a  blank. 


//  OPTION  LIST, LOG, LINK, ERRS 


The  OPTION  statement  specifies  one  or  more  of  the  Job  Control  options. 


FORMAT 

//  OPTION    option  1,  option  2,  

The  purpose  of  this  card  is  to  overide  standard  system  options  set  at 
generation  time.    Selected  options  can  be  in  any  order.    Options  are  reset 
to  the  system  standards  at  the  end  of  each  job.    (INDICATED  BY    &  CARD) 


LOG  List  all  JCL  on  the  printer  from  this  card  until  a  NOLOG, 

//  JOB,  or   /&  is  encountered. 

NOLOG         Stop  listing  JCL. 

DUMP  Causes  a  dump  of  registers  and  main  storage  to  be  printed 

on  printer  if  the  program  abnormally  terminates. 

NOOUMP        Turn  off  the  dump  option. 
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LINK  Tells  the  COBOL  compiler  to  put  the  object  module  in  the 

linkage  eaitor  work  area  known  as  SYSLNK. 

NOLINK        Turn  off  link  option. 

DECK  Tells  the  COBOL  compiler  to  punch  an  object  deck. 

NODECK        Turn  off  the  deck  option. 

LIST  Tells  the  COBOL  compiler  to  write  the  source  listiaq 

on  PRINTER 

NOLIST        Turn  off  the  list  option. 


00073 
00074 

Q  00075 
00076 
00077 

Q  0007B 
00079 
U0080 

Q  00081 
00082 
00083 

Q  00084 
00085 
00086 

.■-^  00087 

^  00088 
000«9 
00090 
00091 
00092 

Q  00093 
00094 
00095 

Q  00096 
00097 
00098 

Q  00099 


05    FILLER  PIC  X(82) 

VALUE  IS 

'  IS  THE  TOTAL  NUMBER  OF  RECORDS  PRINTED'. 
01  WS-PAGE-HEADING. 


05  FILLER 


05  FILLER 
05  FILLER 


05  FILLER 


PIC  X(56) 
VALUE  IS  SPACES. 

PIC  X(7) 
VALUE  IS  'NAME'. 

PIC  X{8) 
VALUE  IS  SPACES. 

PIC  X(62) 
VALUE  IS  'SOC-SEC-NUM' 


PROCEDURE  DIVISION 

OPEN  INPUT  DISK-FILE 

OUTPUT  PRINTER. 
PERFORM  OUIO-READ-AND-PRINT  THRU  0010-EXIT 

UNTIL  WS-DISK-EOF-SWITCH  CQUAL  TO  '1'. 
MOVE  WS-DISK-RCD-COUNT  TO  WS-TL-DISK-RCD-COUNT. 
WRITE  OROl-PRINTER-RCD  FROM  WS-TOTAL-LlNE 

AFTER  ADVANCING  3  LINES. 
CLOSE  DISK-FILE 

PRINTER. 
STOP  RUN.  ^ 
UOIO-READ-AND-PRINT. 
READ  DISK-FILE 
AT  END 

MOVE  '1'  TO  WS-DISK-EOF-SWITCH 
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SCO 

LISTX         Tells  the  COBOL  compiler  to  write  p.  PROCEDURE  DIVISION  MAP 
on  SYSLST. 

NOLISTX      Turn  off  listx  option.  • 


o 

o 

0 
0 

o 

0 

o 

0 

o 
o 

0 
0 

o 


86 


88 


000726 

START 

EQU 

* 

000726 

41  10  C  045 

LA 

1,045(0,12) 

LIT+13 

00072:A 

58  00  D  1C8 

L 

0,1C8(0,13) 

DTF=1 

00072E 

18  40 

LR 

4,0 

OU0730 

07  00 

BCR 

0,0 

000732 

05  FO 

BALR 

15,0 

000734 

50  00  F  008 

ST 

0,008(0,15) 

000738 

4b  00  F  OOC 

BAL 

0,00C(0,15) 

0(i073C 

00000000 

DC 

X' 00000000' 

000740 

OA  02 

SVC 

2 

000742 

41  10  C  045 

LA 

1,045(0,12) 

LIT+13 

000746 

58  00  D  ICC 

L 

0,1CC{U,13) 

DTF=2 

000 74A 

18  40 

LR 

4,0 

> 

00074C 

07  00 

BCR 

0,0 

00074E 

05  FO 

BALR 

15,0 

0007bU 

50  00  F  008 

ST 

0,008(0,15) 

000754 

45  00  F  OOC 

BAL 

U,00C(0,15) 

000758 

Www / W^ 

00000000 

DC 

X' 00000000' 

00075C 

OA  02 

SVC 

2 

00075E 

50  20  D  ICO 

ST 

2,1C0(0,13) 

BL=2 

000752 

58  80  D  ICO 

L 

8,1C0(0,13) 

BL=2 

000766 

58  00  D  1E8 

L 

0,1E8(0,13) 

VN=01 

0U076A 

50  00  D  1E4 

ST 

0,1E4{0,13) 

PSV=1 

00076E 

58  00  C  010 

L 

0,010(0,12) 

GN=01 

000772 

50  00  D  1E8 

ST 

0,1E8(0,13) 

VN=01 

000776 

GN=01 

EQU 

* 

U00776 

58  20  C  014 

L 

2,014(0,12) 

GN=02 

00077A 

D5  GO  6  007  C  04D 

CLC 

007(1, 6), 040(12) 

DNM=l-398 

000780 

07  82 

BCR 

8  2 

000782 

58  10  C  004 

L 

1^004(0,12) 

PN=01 

000786 

07  Fl 

BCR 

15,1 

000788 

GN=02 

EQU 

* 

000788 

58  00  0  1E4 

L 

0,1E4(0,13) 

PSV=1 
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so/ 

SYM  Tells  the  COBOL  compiler  to  write  a  DATA  DIVISION  MAP  on  the  printer 

NOSYM         Turn  off  SYM  option. 


INTRNL  NAME 


Q  DNM= 

^  DNM= 
DNM= 

f\  DNM= 

^  DNM= 
DNM= 
DNM= 

^  DNM= 
DNM= 

/rs  DNM= 
DNM= 
DNM= 

^  DNM= 
DNM= 
DNM= 

/rv  DNM= 

^  DNM= 
DNM= 

Q  ONM= 


1-U74 
1-107 
1-133 
1-149 
l-16b 
1-197 

1-m 

1-247 
1-272 
1-291 
1-322 
1-348 
1-375 
1-398 
1-426 
1-453 
1-472 

1-  489 

2-  OOU 


LVL  SOURCE  NAME 

FD  DISK-FILE 

01  IMOl-DISK-RCD 

02  FILLER 
02  IMOl-N.W 

02  IMOl-SOC-SEC-NUM 

03  IMOl-SSN-PART-1 
03  IMOl-SSN-PART-2 
03  IMOl-SSN-PART-3 
02  FILLER 
FD  PRINTER 
01  OROl-PRINTER-RCD 
77  WS-DISK-RCD-COUNT 
77  WS-LINE-COUNT 
77  WS-DISK-EOF-SWITCH  BL=3 

01  WS-DETAIL-LINE 

02  FILLER 
02  WS-NAME 
02  FILLER 
02  WS-SSN 


BASE 

DI5PL 

DEFINITION 

USAGE 

DTF=01 

DTFCD 

BL=1 

000 

Uo 

nri  AH 

UL>LOU 

GROUP 

BL=1 

000 

nc 
Uo 

oL. 

UISP 

BL=1 

003 

Uo 

1  ftp 

DISP 

BL=1 

015 

uo 

fin  Q 

GROUP 

BL=1 

015 

Uo 

oL 

DISP 

BL=1 

018 

DS 

2C 

DISP 

BL--1 

OlA 

DS 

4C 

DISP 

BL=1 

OlE 

DS 

50C 

DISP 

DTF=02 

DTFPR 

BL=2 

000 

DS 

133C 

DISP 

BL=3 

000 

DS 

4C 

DISP-NM 

BL=3 

004 

DS 

3P 

COMP-3 

BL=3 

007 

DS 

IC 

DISP 

BL=3 

008 

DS 

0CL132 

GROUP 

BL=3 

008 

DS 

51C 

DISP 

BL=3 

03B 

DS 

18C 

DISP 

BL=3 

04D 

DS 

2C 

DISP 

BL=3 

04F 

DS 

OCLll 

GROUP 

o 
o 
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XREF      Tells  the  COBOL  compiler  to  write  the  symbolic  cross 
reference  list  on  the  printer. 

NOXREF    Turn  off  XREF  option 


0 


CROSS-REFERENCE  DICTIONARY 


O     DATA  NAMES 

DISK-FILE 
O  IMOl-NAME 

IMOl-SSN-PART-1 

lMOI-SSN-PART-2 
0  IMOl-SSN-PART-3 

PRINTER 

OROl-PRINTER-RCD 
O  WS-DISK-RSD-COUNT 

WS-LINE-COUNT 

WS-DISK-EOF-SWITCH 
0  WS-DETAIL-LINE 

WS-NAME 

WS-SSN-PART-1 
O  WS-SSN-PART-2 

WS-SSN-PART-3 

WS-TOTAL-LINE 
O  WS-TL-DISK-RCD-COUNT 

WS-PAGE-HEADING 

O      PROCEDURE  NAMES 

0010-READ-AND-PRINT 
O  0010-EXIT 


DEFK 

REFERENCE 

00025 

00086 

00086 

00093 

00097 

0003a 

00109 

00040 

00106 

00041 

00107 

00042 

00108 

00103 

00027 

00086 

00086 

00091 

00046 

00091 

00091 

00103 

00103 

(\C\i\AU 
UUU'fO 

UUU7U 

nm  ni 

00101 

00049 

00102 

00105 

00112 

00112 

UUUDl 

uuucx> 

00099 

00053 

00110 

00110 

00056 

00109  : 

00060 

00106 

00063 

00107 

00066 

00108 

00069 

00091 

00091 

00072 

00090 

00076 

00103 

00103 

DEFN 

REFERENCE 

00096 

00088 

00113 

00088 

00100 

00097 


00110 
00103 


00110  00110 


O 
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ERRS     Tell  the  COBOL  compiler  to  summarize  all  errors  in  the 
source  program  on  the  printer. 


NOERRS  Turn  off  the  ERRS  option. 


CARD      ERROR  MESSAGE 

O 

ILA1087I-W  '  ON  '  SHOULD  NOT  BEGIN  IN  AREA  A. 
ILAIU87I-W  '  LOG  '  SHOULD  NOT  BEGIN  IN  AREA  A. 
O    1  ILA1129I-C  ID  DIV.  HEADER  MISSING  OR  MISPLACED.  ASSUMED  PRESENT. 

ILAI0n4I-E  INVALID  WORD  ON  .  SKIPPING  TO  NEXT  RECOGNIZABLE  WORD. 
ILAII20I-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 
O    1  ILAII20I-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 

ILAII20I-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 
ILAI12UI-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 
O    1  ILA1120I-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 

ILA112UI-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 
ILA1I20I-W  COMMA  NOT  FOLLOWED  BY  SPACE.  ASSUMED. 
O    51         ILA1132I-E  INVALID  SYSTEM-NAME.  SKIPPING  TO  NEXT  CLAUSE. 
53         ILA1132I-E  INVALID  SYSTEM-NAME.  SKIPPING  TO  NEXT  CLAUSE. 
60         ILA1055I-E  FILE-NAME  NOT  DEFINED  IN  A  SELECT.  DESCRIPTION  IGNORED. 
O    73         ILA1056I-E  FILE-NAME  NOT  DEFINED  IN  A  SELECT.  DESCRIPTION  IGNORED. 


o 


CATAL    Causes  the  program  being  link  edited  to  be  cataloged  into 
the  '-ore-image  library. 

The  Standard  System  Options  of  Student  jobs  are  as  follows:  NOLOG, 
NODUMP,  NOLINK,  NODECK,  LIST,  NOLISTX,  NOSYM,  ERRS,  ^RE-F. 
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p/  EXEC  FCOBOL 

The  EXEC  statement  indicates  the  end  of  control  information  for  a 
job  step  and  that  execution  of  a  program  is  to  begin. 

FORMAT 


//  EXEC  progname 

Progname     Is  the  name  of  the  program  cataloged  in  the  core  image 
1 ibrary. 

What  occurs  here  is  that  the  progname  is  passed  to  the  supervisor 
which  goes  to  the  core-image  library  directory,  finds  the  program, 
loads  it  into  memory,  and  passes  control  to  it  to  begin  executing. 

MOTE:    FCOBOL  is  the  name  of  a  COBOL  compiler. 

y  

source  deck 

This  is  the  COBOL  source  deck  that  is  to  be  compiled. 


This  delimiter  card  must  be  the  last  statement  of  each  input  data 
file.    It  causes  the  system  to  return  an  end-of-file  indication  to 
the  program  utilizing  the  data  file. 
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//  EXEC  LUKEOT 


BOS 


This  execute  statement  causes  the  linkage  editor  to  be  loaded  into 
memory  and  control  passed  to  It.    The  linkage  editor  looks  for  izs 
input  on  SYSLNK.    The  output  from  the  linkage  editor  will  be  placed 
in  the  temporary  portion  of  the  core-image  library  unless  the  OPTION 
CATAL  is  specified. 


This  execute  statement  with  no  name  in  the  operand  field  causes  the 
program  just  placea  in  the  temporary  portion  of  the  core-image  library 
to  be  loaded  into  memory  and  executed* 


These  are  the  data  caras  that  are  to  be  processed  by  the  program  that 
was  just  compiled  and  link  edited* 


End  of  data  cards* 


End  of  job  -  all  options  reset  to  system  standards. 
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EXERCISES 

1.  Write  the  JCL  to  compile  a  COBOL  program  and  produce  only  an  object  deck,  a 
source  listing,  an  error  listing,  and  a  cross-reference  listing.  Assume  all 
options  are  set  in  the  NO          mode  for  al 1  exercises  in  the  course. 


2.    Write  the  JCL  for  a  single  job  to  compile  two  COBOL  programs.    The  first 
should  produce  only  an  object  deck  and  the  second  should  produce  only  a 
source  listing,  an  error  listing,  a  cross-reference  listing  and  a  data 
division  map. 


3.  Write  the  JCL  to  compile  and  execute  a  COBOL  program.  Produce  a  source 
listing,  an  error  listing,  a  cross-reference  listing  and  if  the  program 
abnormally  terminates,  a  core  dump  should  be  provided. 
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THE  LINKAGE  EDITOR 


The  linkage  editor  combines  object  modul es  supplied  in  the  input  job  stream, 
anu/or  newly  compiled  object  modules  on  SYSLNK,  and/or  object  modules  from  a 
relocatable  library.    It  edits  these  modules  into  executable  programs. 

The  linkage  editor  puts  these  executable  programs  into  one  of  two  places.  If  t 
option  CATAL  has  been  specified  the  program  is  cataloged  as  a  member  of  a  core 
image  library.    If  not  the  program  is  placed  in  the  temporary  portion  of  the 
core- image  library. 

The  compile-linkedit-execute  example  showed  the  linkage  editor  taking  a  just 
compiled  program  and  linking  it  into  the  temporary  portion  of  the  core-image 
1 ibrary . 

If  a  program  phase  is  to  be  cataloged  into  the  core- image  library  a  linkage 
editor  control  card   is  required.        The  card  is  a  'PHASE'  card  and  the  forme 
is  as  follows. 


y   PHASE      name, origin 


PHASE 
name 

.origin 


Card  column  I  must  be  blank. 
The  operation  code 

1  to  8  alphameric  characters  used  to  give  a  name  to  the  phase 
being  cataloged.    When  the  program  phase  is  executed  at  a  later  dati 
this  is  the  name  to  be  used  in  the  execute  card.    (//  tXEC  name 

This  operand  allows  the  user  to  specify  the  load  address  to  be 
used  for  this  program  phase.  The  possible  options  are; 

1.  symbol    [(phase)] [ireiocationj 

2.  *  [irelocation] 

3.  S  [Ireiocationj 

4.  ROOT 

5.  +  displacement 

6.  F  +  address 

1.    Used  when  building  a  program  overlay  structure.    Says  to  link  e 
this  phase  at  the  same  address  as  a  previously  linked  phase  with 
optional  relocation  shift. 
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2.  Used  when  more  than  one  phase  is  being  linked  together.    Says  put 
this  one  right  behind  the  one  just  link  edited.    In  a  single  phase 
operation  this  is  the  same  as  'S'. 

3.  Sayslink  this  phase  to  load  at  the  beginning  of  the  partition  we 
are  working  in. 

4.  Used  in  overlay  and  says  that  this  particular  phase  is  not  to  be 
overlayed  but  is  to  remain  in  memory  while  program  is  executing. 

5.  Specifies  an  absolute  address. 

6.  Used  to  link  edit  a  program  to  run  in  a  foreground  partition  while 
the  linkage  editor  is  executing  in  background. 


If  object  nTioouie?  f>^"r:<  che  relocatable  library  or  object  decks  external  to 
the  system  are  to  ue  link  edited,  another  control  card  comes  into  play. 


modul ename      Symbol  name  of  the  module  as  used  when  cataloged  in  the 


relocatable  library.    If  the  operand  Is  omitted  the  system  assumes 
that  the  module  is  in  the  input  job  stream  immediately  behind  the 
INCLUDE  card. 


The  third  linkage  editor  control  card  is  the  ENTRY  card  and  is  in  the  following 
format: 


entrypoint  Symbolic  name  of  the  address  where  control  is  to  be 
passed  when  the  program  is  loaded  into  memory. 


Note:    The  ENTRY  card  is  normally  not  needed.    Job  control  will  write  an  ENTRY 
statement  when  EXEC  LNKEDT  is  read  to  ensure  that  an  ENTRY  statement 
will  be  present  to  halt  linkage  editing. 


j/  EWTRY 


entrypoint 
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The  last  of  the  linkage  editor  control  cards  is  ACTION  card  and  is  in  the 
following  format: 


ACTION 


CLEAR. MAP, N0MAP,BG,F1,F2 


CLEAR        Indicate  that  the  unused  portion  of  the  core  image  library  will  be  set 
to  Binary  zero  before  the  beginning  of  the  linkage  editor  function, 
CLEAR  is  very  time  consuming  and  should  not  be  used.    If  you  are 
careful  to  assign  initial  values  where  needed  in  your  Program  this 
isn' t  needed. 

MAP  Indicates  that  PRINTER  is  available  for  diagnostic  messages.  In 

addition,  a  main  storage  map  it  output  on  PRINTER. 


0 
o 

0 
0 
0 
0 

o 

o 
o 

0 
o 
o 
o 
o 


24/06/77       PHASE    XFR-AD  LOCORE    HICORE    DSK-AD    ESQ  TYPE  LABEL  LOADED  REL-FR 

PHASE***  005000  005000   005AF0    30  13  3  CSECT  EXAMPLEO  005000  00500Q 

CSECT  IJCFZIIO  005950  005950 

CSECT  IJDFAPIZ  0059D8  0059D8 

*  ENTRY  IJDFAZIZ  0059D8 

CSECT  ILBDMNSO  005AFO  005AFO 


NOMAP  Diagnostics  are  listed  on  SYSLOG. 

B6  Tells  the  linkage  editor  what 

Fl  Partition  the  program  is  being 

F2  link  edited  to  run  in. 
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EXERCISES 


1.    You  are  handed  a  deck  of  cards  and  told  that  is  is  an  object  module  received 
from  Fort  Knox  DPI.    Write  the  JCL  necessary  to  execute  the  program. 


2.    Write  the  JCL  needed  to  catalog  the  object  module  mentioned    in  exercise  1 
into  the  core- image  library.    Call  the  program  FKX5I2, 


3.    Write  the  JCL  to  execute  the  program  cataloged  in  exercise  2. 
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ASSIGNMENT  OF  I/O  DEVICES 


In  order  for  a  program  to  run  in  a  computer  system  some  means  must  be 
available  to  L/wKthe  program  to  the  physical  devices  such  as  card  readers, 
printers,  and  disk  drives. 

The  programmer  is  given  the  latitude  to  utilize  any  symbolic  device  address 
he  wishes,  ranging  from  SYS0ii^  through  SYSmax.    For  example  in    a  COBOL  program 
you  may  choose  to  call  the  printer  'SYS)dji^5'  and  the  card  reader  'SYS006'  and  the 
disk  unit  you  are  using  'SYSJ^lJrf'.    The  preceding  is  accomplished  through  the  use 
of  the  COBOL  SELECT  statement. 

FILE-CONTROL 

SELECT  PRINT-FILE 

ASSIGN  TO  SYSyJ|il5-UR-14jrf3-S. 

Because  this  program  could  be  required  to  run  on  many  different  hardware 
configurations  the  physical  device  addresses  are  likely  to  be  different.  The 
following  diagram  depicts  a  typical  hardware  configuration  indicating  the 
physical  device  addresses. 

NOTE:     The  //  ASSGN  card  discussed  later  in  this  section  serves  the  function 
of  linking  the  program  logical  assignments  to  the  hardware  configuration. 
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There  exists  in  the  DOS  system  a  set  of  fixed  symbolic  names  used  to 
reference  various  I/O  devices.    These  are: 

SYSRDR  -    Card  reader,  magnetic  tape  unit,  or  disk  extent  (specific  area) 
used  for  JOB  control  input. 

SYSIPT  -    Card  reader,  magnetic  tape  or  disk  extent  used  as  input  for 
programs. 

SYSPCH  ~    Card  punch,  magnetic  tape  or  disk  extent  used  for  punched  output. 

SYSLST  -    Printer,  magnetic  tape  or  disk  extent  used  for  punched  output. 

SYSLOG  -    Printer-keyboard  or  console  printer-keyboard  used  for  operator 
messages  and  to  log  JCL  message. 
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SYSLNK  -    Disk  extent  used  as  input  to  the  linkage  editor. 


SYSRES  -  System  residence  area  on  a  disk  drive. 

SYSCLB  -  Disk  extent  used  for  a  private  core  image  library. 

SYSRLB  -  Disk  extent  used  for  a  private  relocatable  library. 

SYSSLB  -  Disk  extent  used  for  a  private  source  statement  library. 

SYSREC  -  Disk  extent  used  to  store  error   records  collected  by  the  system. 

SYSJ<0<^  -  SYSmax  -  All  other  units  on  the  system. 

The  first  eleven  of  these  symbolic  names,  called  system  logical  units, 
are  used  by  the  system   control  programs  and  system  service  programs. 

The  remainder  SYS0^{^,  SYS^jf^l,   ,  SYSmax  are  known  as  programmer 

logical  units.    Some  of  these  are  defined  and  assigned  to  physical  devices 

at  system  generation  time  such  as  the  work  areas  required  by  the  COBOL  compiler. 

The  following  are  the  physical  device  addresses  for  the  ADMINCEN  computer 
system  and  some  of  the  Standard  logical  assignments  set  at  system  generation 
time: 


PHYSICAL  ADDRESS 


DEVICE 


LOGICAL  ASSIGNMENT 

SYSROR,  SYSIPT.  SYS02ii 
SYSPCH,  SYSj^Zl 
SYSLST,  SYSI/22 
SYSLOG 
NONE 

SYSRES.  SYSREC 
SYSLNK.  SYSCfCfSl  thru  SYS0ji9 
SYSSLB,  SYSCLB 
NONE 

Each  of  the  disk  assignments  has  associated  with  it  information  telling  the 
system  where  exactly  on  the  disk  pack  the  specified  file  resides.  For 
example  Disk  drive  131  has  eleven  different  areas  on  the  pack  assigned  to 
SYSLNK  and  S'iSM  thru  SYS09,  they  all  represent  different  areas  some  of 
which  are  used  by  the  COBOL  compiler  for  work  areas. 


00 

CARD  READER 

CARD  PUNCH 

PRINTER 

CONSOLE  TYPEWRITER 

18)^-185 

6  TAPE  DRIVES 

130 

DISK  DRIVE 

131 

DISK  DRIVE 

132 

DISK  DRIVE 

133-136 

DISK  DRIVE 
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SIM- 

)/  ASSGN  SYS>ijil5,X*4tiC' 

The  ASSGN  statement  assigns  a  logical  I/O  unit  to  a  physical  device.  It 
remains  in  effect  until  the  next  change  in  assignment  or  until  the  end  of  job. 

//  ASSGN   SYSxxx, address  f,x'ss'\ 

\  .ALT 

SYSxxx      The  programmer  logical  unit  used  in  your  program. 

address     The  physical  device  address  in  the  form  of  X'cuu'  which 
indicates  the  Channel  and  Unit  number  (in  hexadecimal). 
CHANNEL  (c) 

^  for  multiplexor  channel,  1-6 
for  selector  channels  1  thru  6. 
UNIT  (uu) 

.iUfi  -  FE  U  to  254)  in  Hexidecimal 

used  to  tell  the  system  the  physical  characteristics  of  a  tape  unit 
such  as  bytes  per  inch  and  parity  used.    Normally  this  information 
is  provided  at  system  generation  time  and  is  not  needed  unless 
changes  have  been  made. 

Indicates  an  alternate  magnetic  tape  unit  that  is  used  when  the 
capacity  of  the  original  assignment  is  reached.     The  specifications 
are  tne  same  for  orimarv  and  alternate  taoe  drives. 

//  ASSGN  SYStfLer,X'180' 
//  ASSGN  SYS0U^,X'I81' ,  ALT 

//  ASSGN  cards  must  be  placed  in  the  job  stream  prior  to  the  // 
EXEC  that  utilizes  them  and  should  be  placed  after  the  previous  //  EXEC  in  the 
job  stream.    The  reason  for  the  latter  is  to  group  all  of  the  associated  JCL 
with  the  Job  step.    In  the  case  of  multistep  jobs  JCL  changes  are  difficult  if 
all  of  the  'ASSGN'  cards  are  bunched  together  at  the  beginning  of  the  first  step. 
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The  DOS  ASSGN  that  we  have  just  discussed  does  have  some  limitations.  One 
of  the  limitations  is  that  the  JCL,  which  is  written  ahead  of  time, is  hardware 
system  dependent  and  would  have  to  be  modified  card-by --card  if  the  same  set 
of  JCL  were  to  be  used  on  a  different  hardware  configuration.  This  does  not 
present  a  great  problem  for  programs  that  are  written  and  run  on  the  same 
machine.  But,  it  does  present  a  problem  for  Army  Standard  systems  that  are 
witten  in  a  central  location  along  with  the  associated  JCL  and  sent  out  to 
the  world  to  be  run  on  many  different  machines.  A  second  limitation  is  the 
ability  to  get  around  an  I/O  device  malfunction.  It  must  be  done  in  the  same 
manner  as  above,  a  card-by-card  change  in  the  JCL  ASSGN 's. 

To  overcome  these  limitations  ADAM  was  written  to  provide  the  ability  to 
make  DOS  JCL  hardware  configuration  independent  and  return  system  resources 
to  the  DOS  console  operator  for  management. 

EXAMPLE:        //    ASSGN    SYS01ja,X 'TPP^ 

TPJ3  Positions  1  and  2  indicate  the  particular  device  type; 

CR        card  reader 
CP        card  punch 
PR  printer 
DK        disk  drive 
TP        tape  drive 

TD        tape  drive  w/duai  density  feature 

T7        tape  drive  seven  track 
The  3rd  position  indicates  the  positional  rLlatlonship  of  this 
device  to  any  other  device  of  the  same  classification.  For*  example 

TPJ3,TP1,TP2,TP3,   or    CR)3,CR1  ,PR0,PR1  

There  is  a  SYMBOLIC  UNIT  TABLE  in  memory  that  relates  these  symbolic 
assignments  to  the  actual  device  addresses.  The  table  logically  appears  as 
follows; 


SYMBOL 

BG 

F2_ 

F]_ 

CRj3 

m 

m 

00C 

CP0 

00D 

00D 

PRp 

POE 

00E 

TP^ 

180 

182 

184 

TPl 

181 

183 

185 

TP2 

182 

184 

180 

TP3 

183 

135 

181 

rP4 

184 

180 

182 

TP  5 

185 

181 

183 

DKl 

130 

134 

136 

In  the  example  above  we  saw  that  the  program  called  for  'TP^*.  As  you  can 
see  from  the  table  if  the  program  were  run  in  the  background  (BG)  partition 
it  would  be  assigned  to  tape  drive  '18)9'.  If  it  were  run  in  foreground  2  (F2) 
it  would  be  assigned  to  tape  drive  '182'.  On  some  other  hardware  configuration 
it  may  be  an  address  that  does  not  even  appear  in  this  table. 
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If  device  180  v^ere  to  become  inoperative  for  some  reason, the  operator 
would  change  the  assignment  in  the  symbolic  unit  table  with  the  following 
three  commands  entered  thru  the  console  device; 

SYMCHG  TPj3,BG=185 
SYMCHG  TP4,F2=183 
SYMCHG  TP2,F1=181 

This  is  certainly  easier  than  hunting  up  all  of  the  //  ASSGN  SYSxxx,X'180' 
cards  and  repunching  them. 

The  Symbolic  Unit  Table  takes  about  30  seconds  to  build  at  IPL  time. 
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EXERCISES 

1.    Write  the  JCL  to  compile  and  execute  a  COBOL  program  which  uses 
the  following  SELECT  statements 


SELECT  CARD-FILE  ASSIGN  SYS^larS-UR-ZSAtJR-S. 
SELECT  PRINT-FILE  ASSIGN  SYSiJJ2f9-UR-14£r3-S. 


2.    Write  the  JCL  to  execute  an  object  deck  for  a  program  which  reads  cards  and 
produces  a  magnetic  tape  file  and  a  printed  report.    The  programmers  logical 
units  used  by  the  program  are  SYStJfifS  for  the  card  reader,  SYStifJS  for  the 
printer,  and  SYStJH  for  the  tape  file. 


3.  Write  the  JCL  for  two  COBOL  programs  which  are  to  be  compiled  and  executed 
as  sep  rate  job  steps  within  the  same  job.  The  first  program  while  executing 
reads  a  card  file  and  puncnes  an  output  card  file.  The  second  program  reads 
anotner  set  of  data  cards  and  produces  a  printed  report.  The  first  program 
uses  SYSl^jaB  for  the  card  reader  and  SYS007  for  the  card  punch.  The  second 
program  uses  SYS^J36  for  tne  card  reader  and  SYSpJDB  for  the  printer. 
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DATA  FILES 

The  diagram  below  is  a  portion  of  a  Systems  Flow  Chart,    It  depicts 
a  single  program  and  its  associated  inputs  and  outputs, 

stock  receipt] 

(tape  file) 

/  error  \ 
file 


 T 

shrinkage 
report 


We  have  already  seen  how  the  //  ASSGN  • • .  cards  are  used  to  tell  the 
operating  system  what  devices  are  to  be  assigned  to  this  program  in  order 
to  have  all  of  these  input  and  output  files  on  line.    No  further  discussion 
is  necessary  for  the  CARD  and  PRINT  files.     However,  because  there  are 
normally  hundreds  or  even  thousands  of  reels  of  tape  and  hundreds  of  disk 
packs  in  an  organization,  it  is  necessary  to  have  some  way  of  uniquely 
identifying  each  disk  pack  and  each  tape  reel.     The  problem  is  compounded 
by  the  fact  that  there  may  be  more  than  one  file  on  each  volume, 

TAPE  FILES 

(IBM  TAPES  LABELS  FOR  DOS;  ORDER  NO-  GC24-5070) 

Tape  files  may  appear  as  one  or  more  files  per  volume  or  more  than  one 


inventory 
update 
program 

 ?mm 


(disk  file) 

inventory 
master 
file 


7 


6-1 


CSD.SFW.OS 


volume  per  file.     In  any  case  the  system  must  have  some  means  of  identifying 
the  volume  that  it  is  reading  and  some  means  of  identifying  the  file  on  that 
volume(s).     This  is  accomplished  through  the  use  of  STANDARD  TAPE  LABELS- 
Each  volume  has  a  standard  volume  label  and  a  standard  end -of -volume  label. 
Each  file  has  a  standard  header  label  and  a  standard  end-of--file  label,  (See 
Page  6-2.1volume  Layouts) 

VOLUME-LABEL 

The  VOLl  label  is  written  by  a  utility  program.  Initialize  Tape,  It 
is  generally  written  once,  when  the  reel  of  tape  is  first  received  in  an 
installation.     At  that  time,  a  permanent  volume  serial  number  is  assigned 
to  the  reel  and  written  on  it  as  part  of  the  volume  label.    This  provides 
a  permanent  identification  of  the  reel,  as  long  as  it  is  used  for  files, 
with  standard  labels,     (See  Page  6-2. ^Standard  Volume  Label) 

FILE-HEADER-LABEL 

Each  tape  file  has  a  header  label  as  the  first  physical  record.     It  consists 
of  8(3  bytes  of  information  as  provided  by  the  user  and  the  IOCS  routines  to 
uniquely  identify  the  file.     (See  Page  6- 2.3Standard  File  Header  Label) 

END-OF-FILE  OR  END-OF-VOLUME  LABEL 
Either  one  or  the  other  of  these  will  appear  at  the  end  of  each  volume 
depending  on  the  file-volume  relationship-    The  data  in  these  labels  are  the 
same  as  that  in  the  File-Header-Label  with  two  exceptions.     Bytes  1  thru  4 
will  contain  either  EOFl  or  EOVl  and  bytes  55  thru  60  contain  a  block  count 
which  indicates  the  number  of  physical  records  written  on  it's  particular 
volume. 
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File  Identifier  Permits  the  user  to  identify  his  logical  file  by  an  application-oriented 
unique  name. 

File  Serial  Contains  the  volume  serial  number  from  the  volume  label  of  the  first  or 

Number  only  volume. 

Volume  Used  for  multivolume  files  to  insure  that  the  tape  reels  are  mounted  in 

Sequence  the  proper  sequence.  For  Single  volume  files  this  entry  defaults  to 

Number  <liUl 

File  Sequence  Used  for  multifile  volumes.  For  single  volume  files  this  entry  defaults 

Number  to 


Generation  Number    Identifies  the  various  editions  of  a  file,  such  as  grandfather-father-son. 
relationship.  Defaults  to  001  or  number  provided  by  user. 

Version  Number  of    Provides  a  more  detailed  identification  of  the  editions  of  a  file. 
Generation  Defaults  to  01  or  number  provided  by  user. 


42-47        Creation  Date        System  writes  this  date  from  IPL  date  entered  by  the  operator. 

48-53        Expiration  Date      The  date  the  file  can  be  destroyed.  Defaults  to  creation  date  or  date 

as  provided  by  user. 

54-80  Not  used  for  file  header  label. 


53.3 

//  TLBL  TAPEFLE,'TAPE  MASTER' , 150, 771834 

The  tape  label  card  is  used  to  provide  file  label  information  for 
tape  label  checking  and  writing. 
FORMAT 

//  TLBL  filename, ['file- id'], [date], [file-serial-number], 

[volume-sequence-number] , [file-sequence-number] , 
[generation-number] , [version- number] 
filename  This  operand  serves  to  link  the  TLBL  card  to  the  COBOL 

program  file  description  (FD) .    It  consists  of  1  to  7 
alphameric  characters  the  first  of  which  must  be  an 
alphabetic. 
EXAMPLE  1:  SELECT  TAPE-FILEl 

ASSIGN  TO  SYS011-UT-2400-S-TAPEFLE. 
//  ASSGN  SYS011,X'183' 
//  TLBL  TAPEFLE,'TAPE  FILE  ONE* 
EXAMPLE  2;  SELECT  TAPE-FILE2 

ASSIGN  TO  SYS012-UT-2400-S. 
//  ASSGN  SYS012,X'18A' 
//  TLBL  SYS012,'TAPE  FILE  TWO' 
'file- ID'  This  optional  entry  consists  of  1  to  17  alphameric  characters, 

con.ained  within  apostrophes.    It  appears  in  the  TLBL  and  the 
file  label  and  serves  to  uniquely  identify  the  file, 
date  This  optional  entry  enables  the  user  to  specify  how  long  the 

file  is  to  be  retained  and  can  be  specified  in  one  of  three 
ways: 
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file  serial 
number 

volume 

sequence 

number 


file 

sequence 
number 


1.  Omit  operand  in  which  case  the  file  will  not  be  retained. 

2.  Enter  an  absolute  expiration  date  in  the  form  of  yy/ddd. 
84/0(95  file  will  expire  on  5  January  1984 

82/042  file  will  expire  on  11  February  1982 

3.  Enter  the  number  of  days  that  the  file  is  to  be  retained 
in  the  form  of  0  to  9999. 

9    file  will  expire  9  days  after  creation. 
27    file  will  expire  27  days  after  creation. 
9999    is  used  to  specify  a  permanent  file. 

This  optional  entry  allows  the  user  to  specify  the  volume 
serial  number  of  the  first  or  only  reel  of  tape  in  file. 


If  desired  on  input  files  you  may  wish  to  use  this  optional 
operand  to  access  some  volime  of  a  multivolume  other  than  the 
first.    Enter  1  to  4  numeric  characters,     (This  operand  is 
usually  omitted) 


This  optional  entry  allows  the  user  to  access  a  specific 
file  within  a  multifile  volume.     Enter  1  to  4  numeric 
characters. 
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555 


Generation 
number 

Version 
number 


Optional  operand  for  the  user  to  specify  a  generation  number. 
Enter  1  to  4  numeric  characters. 

Optional  operand  to  sub-identify  a  particular  generation. 
Enter  1  or  2  numeric  characters. 


//    LBLTYP  TAPE 


or 


//    LBLTYP  NSDC02) 


The  LBLTYP  statement  (reserve  storage  for  label  processing)  defines  the 
amount  of  main  storage  to  be  reserved  at  linkage-edit  time. 

FORMAT 


//    LBLTYP  TAPE 

NSDCnn) 

TAPE  Used  only  if  tape  files  requiring  label  information  are  to  be 

processed,  and  no  nonsequential  DASD  files  are  to  be  processed. 

NSD(nn)        Used  if  any  nonsequential  DASD  files  are  to  be  processed  regardless 
of  other  type  files  to  be  used,  nn  specifies  the  largest  number  of 
extents  to  be  used  in  a  single  file. 

The  amount  of  storage  that  must  be  reserved  for  label  information  is: 

1.  For  standard  tape  labels      80  bytes. 

2.  For  sequential  disk  labels  NONE. 

3.  For  ISAM  or  DA  disk  file  labels     84  bytes  plus  20  bytes  per  extent. 
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EXERCISES 

1.    Write  the  JCL  to  execute  a  program  that  is  cataloged  In  the  core  image 
library  under  the  phase-name  'WS342'  and  contains  the  following  select 
statements: 

SELECT  CARD-FILE 

ASSIGN  TO  SYS008-UR-2540R-S. 
SELECT  TAPE-FILE 

ASSIGN  TO  SYS011-UT-2400-S. 
TAPE-FILE  is  an  output  file.    Utilize  'ERROR  FILE  TAPE'  as  a  unique  file 
ID  and  put  the  file  on  tape  SN  772206.    Retain  the  file  for  one  year. 


2.  Write  the  ASSGN's  and  TLBL's  for  a  program  containing  the  following 
Select  statements: 

SELECT  TAPE-INPUT-FILE 

ASSIGN  TO  SYS011-UT-2400-S. 
SELECT  TAPE-OUTPUT-FILE 

ASSIGN  TO  SYS012-UT-2400-S-NEWMST. 
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TAPE- INPUT-FILE  has  no  unique  file  ID  but  is  on  tape  SN  750349. 
TAPE-OUTPUT-FILE  is  to  go  on  tape  SN  781433.    Assign  your  ovm  file  ID.  The 
file  is  to  be  retained  indefinitely. 
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STANDARD  MASS  STORAGE  DEVICE  LABELS  -  (VTOC) 


Expiration 
Date 


Creation  Date 


— Spare 


ii 


File  Maine 


Record  Length 

Option  Key 
Code  Location 


File 

Serial 
Nyoiber 


Format 
Identifier-' 


Volume 


Count 
Sequence    of — 
Number  Extents 


Space 
Remaining 


System  Code 


Bytes  used 
.In  Last  block 
of  Directory 


m 


FIRST  EXTENT 

ADDITIONAL  EXTENT 

ADDITIONAL  EXTENT 
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//    DLBL    DISKFLE, 'DISK  MASTER  FILE' ,87/130, SD 

The  disk  label  card  is  used  to  provide  part  of  the  label  information  for 
disk  label  writing  and  checking.  • 

FORMAT 

//    DLBL    f  ilename.D  file  id'],  [date],  Lcode] 

filename  This  operand  serves  to' link  to  DLBL  card  to  the  COBOL  program  file 
description  (FD).  It  consists  of  1  to  7  alphameric  characters,  the 
first  of  which  must  be  alpha. 

EXAMPLE;  SELECT  OM-DISK-^MASTER-FILE 

ASSIGN  TO  SY$007~UT-2314-S-DISK5. 

//    ASSGN  SYS007,X'132* 

//    DLBL    DISKS, 'Mast  


file  id      This  operand  links  the  DLBL  card  to  the  data  set  on  the  disk  pack. 

It  is  1  to  44  characters  in  length  the  first  of  which  must  be  alpha. 
The  file  id  must  be  unique  on  any  given  disk  pack. 

date  The  date  is  used  when  creating  an  output  file  and  can  have  one  of 

two  formats; 

yy/ddd  using  year  and  Julian  date  to  specify  expiration  date, 
dddd  to  specify  the  number  of  days  the  file  is  to  be  retained. 

code  This  operand  tells  the  system  what  kind  of  file  this  is; 

code  definition 

SD  Sequential  disk  file 

DA  Direct  access  file 

ISC  Indexed  sequential  (used  only  when  creating  file) 

ISE  Indexec  sequential  (used  for  all  other  activities) 

//    EXTENT    SYS007, 123321, 1,13, 123, 152(3 

The  disk  extent(area)  card  is  used  to  tell  the  system  such  things  as  what 
disk  pack  the  file  is  on,  where  on  that  pack  does  the  file  begin  and  how  many 
tracks  does  the  file  occupy. 

FORMAT 

//    EXTENT    [symbolic  unit3 ,  [serial  numberU,  Ctypel,  [sequence  number], 
[relative  trackj  ,  [number  of  track^ 
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symbolic  unit    This  operand  must  match  the  symboltc  unit  in  its  associated 
assign  card. 

serial  number    Volume  serial  number  of  the  disk  pack  for  which  this  extent 
is  effective. 


type  This  operand  specifies  the  type  of  extent  this  is; 

TYPE  PURPOSE 

1  Prime  data  area  for  any  of  the  3  file  types. 

2  Independent  overflow  for  ISAM  files. 
4  Index  area  for  ISAM. 

sequence  number    For  sequential  disk  files  the  first  extent  is  sequence 
number  J9  ,  the  second  is  1,  the  third  is  2  and  so  on. 

For  ISAM  files  the  following  rules  apply; 

P      Master  index  only 

1  Cylinder  index  only 

2  first  prime  data  extent 

3  second  prime  data  extent 
etc....^.  4,5,6, ..^N 

N+1    Independent  overflow 

relative  track    This  operand  indicates  the  starting  track  of  the  file 
relative  to  the  first  track  on  the  disk  pack. 

The  user  will  normally  know  the  cylinder  and  track  number* 
If  so,  you  will  have  to  convert  it  to  relative  track  using 
the  following  formula; 

relative  track  (RT)    =    20    X    (cylinder  number)    +    {track  number) 

EXAMPLE:  Your  sequential  disk  file  begins  on  cylinder  number 
15  track  number  5.  What  is  the  relative  track? 

RT    =    20    X    15   +  5 
RT    =  305 

NOTE:  For  ISAM  files  prime  data  extents,  the  relative  track  must  be 
a  multiple  of  20. 

number  of  tracks    This  operand  is  the  total  number  of  tracks  in  this  extent. 

EXAMPLE:  Your  sequential  disk  file  begins  on  cylinder  15 
track  5  and  ends  on  cylinder  21  track  15,  What  is  the  number 
of  tracks? 

RT(start)  =  2]?  X  15  +  5  =  3J?5,  RT(end)  =  20  X  21  +  15  =  435 
number  of  tracks  =  RT{end)  -  RT(start)  +  1  435-305+1=131 
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Requirement;  You  are  to  write  the  job  control  language  to  execute  the  program 
called  MAKFILE,  which  is  currently  cataloged  in  the  core  image  library. 


>  ^ 

\ 

FILE 

SEQUENTIAL 
DISK  FILE 
53 


REPORT 


The  sequential  disk  file  is  to  be  called  SEQUENTIAL  FILE  53  and  is  to  be 
placed  on  disk  pack  number  555663  which  is  to  be  mounted  on  disk  drive  132 
The  filt  begins  on  cylinder  105  track  3  and  ends  on  cylinder  112  track  7.  The 
file  is  to  be  retained  for  20  days.  The  COBOL  program  selects  are  as  follows; 


FILE-CONTROL. 

SELECT  IT-CARD-FILE 

ASSIGN  TO  SYS004-UR-254£iR-S. 
SELECT  OR-MAKFILE-REPORT 

ASSIGN  TO  SYS005-UR-1403-S. 
SELECT  OM-DISK-FILE 

■  ASSIGN  TO  SYS010-DA-2314-S-SEQFLE. 
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SOLUTION: 


//  JOB  EXSEQ 

//  OPTION    LOG, DUMP 

//  ASSGN  SYS004,)('00C' 

//  ASSGN  SYS0P5,X'0^E' 

//  ASSGN    SYS010,X'132'  ■ 

//  DLBL    SEQFLE, 'SEQUENTIAL  FILE  53 S2ja,SD 

//  EXTENT    SYSP10, 555663, 21193,145 

//  EXEC  MAKFILE 

INPUT  DATA 
DECK 

/* 
/& 

RT(start)  =  20  X  105  +  3  =  21)33 
RT{end)  =  20  X  112  +  7  =  2247 
Number  of  tracks    =    2247    -    2103   +    1    =  145 
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EXERCISES 

1,    Write  the  JCL  for  a  program  called  'MAKSEQ*  that  reads  cards  and  creates  a  sequential 
disk  file.  The  file  is  to  be  stored  on  disk  pack  122fJ13  which  will  be  mounted  on  drive 
134,  It  will  be  stored  from  cylinder  10  track  (3  through  cylinder  119  track  19.  The 

file  should  expire  150  days  after  it  is  created.  File-ID  is  CUSTOMER  MASTER-FIL-E^  

SELECT  CUST-MASTER-FILE 

ASSIGN  TO  SYS012-UT-2314-S. 
SELECT  CARD-INPUT-FILE 

ASSIGN  TO  SYS0jD5-UR-2540R-S. 


2.    Write  tne  JCL  for  a  card  to  disk  program.  The  COBOL  program  is  to  be  compiled  and 
executed.  The  file  is  to  be  stored  on  disk  pack  506012  which  will  be  mounted  on 
drive  132.  It  will  be  stored  from  cylinder  24  track  0  through  cylinder  49  track  19. 
The  file-ID  is  PRICE-f^STER-FILE.  The  file  is  to  be  retained  indefinitely. 
SELECT  CARD-MASTER-FILE 

ASSIGN  TO  SYS026-UR-2540R-S. 
SELECT  PRICE-MASTER-FILE 

ASSIGN  TO  SYS024-UT-2314-S-PRIMAST. 
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COBOL  PE2/PE3  JCL  EXERCISE 

COMPILE  J01 
EXECUTE  J01 

I,  REQUIREMENT,  Write  the  DOS  JCL  necessary  to  execute  your  COBOL  PE  number  2 
or  3.  You  are  expected  to  get  the  same  compiler  outputs  as  before  as  well  as 
a  clean  execution  of  your  program.  _ 


II.  COBOL  program  changes.  There  are  some  differences  between  DOS  and  OS  COBOL- 
In  Order  to  get  a  clean  compile  you  will  have  to  do  the  following: 

1,  Change  the  disk  file  assign  to  read 

ASSIGN  TO  SYS006-UT-2314-S. 
2-  Change  the  printer  file  assign  to  read 

ASSIGN  TO  SYS005-UR-1403-S, 

3,  Change  the  printer  FD  label  clause  to  read 

LABEL  RECORDS  ARE  OMITTED 

4,  Remove  the  printer  FD  BLOCK  CONTAINS  clause, 

III.  METHODS. 

1,  Replace  the    //    JOB    name    card  with  the  following  card  filled  out 
the  same  way  as  your  normal  computer  run  card; 


1  LAST  NAME,  FIRST 

ROOM  =  nnnn    (please  punch) 

(IenerVl*"  " 

U.S.  ARMY  INSTITUTE  OF  ADMINISTRATION 
COMPUTER  SCIENCE  DEPARTMENT 


FOR  USE  ONLY  WITH  EXERCISE  "^(^ 


DOS 


FOR  INSTRUCTIONAL  PURPOSES  ONLY 


■job 

jTlfKEI 


SI 


ACADEMIG||  I 


COMPUTE 
FACILITY 


2.  Be  sure  all  of  your  JCL  is  listed  on  the  printer. 

3.  Do  not  use  the  DECK  or  CATAL  optins. 

4.  The  disk  pack  is  to  be  mounted  on  disk  drive  'DK3'. 

5.  The  output  is  to  be  printed  on  printer  'PR0'. 

6.  The  serial  number  of  the  disk  pack  is  D0SWK3. 

7.  The  file  ID  is      'SOFTWARE  DATA  FILE  14  *  ^^ESIDE^'T' 
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An  ISAM  file  is  basically  a  sequential  file  with  a  series  of  indexes  that 
allow  the  processing  of  single  records  located  anywhere  within  the  file.  An 
ISAM  file  can  also  be  processed  sequentially  if  desired.  There  are  several 
dirterent  types  of  areas  associated  with  an  ISAM  file  and  these  are  explained 
below  (See  diagram  on  the  next  page  as  you  read). 

PRIME  AREA  is  where  the  records  are  located  and  may  occupy  one  cylinder 
or  many  disk  packs.  The  prime  area  is  defined  by  the  programmer  thru  JCL..The 
records  are  located  in  this  area  in  sequential  order  (logically)  by  record  key 
in  ascending  order.  A  KEY  is  some  unique  field  within  the  logical  record.  In 
a  personnel  file  perhaps  we  would  use  Social  Security  Number. 

INDEX  AREA  is  the  place  on  the  disk  pack  where  ISAM  builds  and  maintains 
a  series  of  indexes  used  to  access  or  add  records  to  the  file  when  processing 
in  a  random  mode. 

TRACK  INDEX  occupies  the  first  track  of  each  cylinder  of  the  prime 
area.  The  track  index  is  defined  by  ISAM  and  as  with  all  other  indexes  is 
loaded  by  ISAM.  Its'  function  is  to  tell  ISAM  on  which  track  of  this  cylinder 
the  record  is  located  or  if  being  added,  on  which  track  it  is  to  be  added  to. 

CYLINDER  INDEX  is  defined  by  the  programmer  thru  JCL.  Its'  function 
is  to  tell  ISAM  on  which  cylinder  the  record  should  be  located. 

MASTER  INDEX  is  defined  by  the  programmer  using  JCL.  Its'  function  is 
to  tell  ISAM  which  track  of  the  cylinder  index  to  look  for  this  particular 
record.  The  master  index  is  the  only  optional  index  in  the  ISAM  file.  It  is 
normally  defined  if  the  cylinder  index  is  greater  than  4  tracks. 

OVERFLOW  AREA  is  used  when  records  are  added  to  an  already  established 
file. 

CYLINDER  OVERFLOW.  A  certain  number  of  whole  tracks  are  reserved  in 
each  cylinder  for  overflow  records  from  the  prime  area.  The  programmer  may 
specify  the  number  of  tracks  to  be  reserved  by  means  of  the  APPLY  CYL -OVERFLOW 
clause.  If  zero  is  specified  no  cylinder  overflow  will  be  reserved.  If  the 
clause  is  omitted,  ISAM  defaults  to  2ji%  of  each  cylinder. This  area  is  not 
defined  by  JCL. 

INDEPENDENT  OVERFLOW  AREA.  Overflow  records  from  anywhere  in  the  ppime 
area  are  placed  in  a  certain  number  of  cylinders  reserved  soley  for  this 
purpose.    The  size  and  location  of  this  area  is  defined  by  the  programmer  thru 
JCL. 
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ELEMENTS  OF  AN  INDEXED  SEQUENTIAL  (ISAM)  FILE 


Pointer  to  a  track  of 
the  cylinder  index. 


Pointer  to  a  cylinder 
in  the  prime  area. 


TRACK  INDEX 
DATA  AREA 


CYLINDER 
OVERFLOW 
AREA 


Pointer  to  a  track  in 
the  data  area. 


Overflows  from  the 
cylinder  overflow 
goes  to  the  independen 
overflow 


INDEX  AREA 


PRIME  DATA  AREA 


Overflows  (additions)  from 
the  data  area  will  be  placed 
in  the  cylinder  overflow 


INDEPENDENT 
OVERFLOW  AREA 
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Requirement:  You  are  to  write  the  job  control  language  needed  to  execute  the 
program  called  CREATE,  which  is  currently  cataloged  in  the  core  image  library. 
The  systems  flow  chart  below  will  assist  you  by  showing  you  the  relationships 
of  all  files. 


TRAN: 
TAPE 
FILE 


ISAM  MASTER 
FILE  156 


The  transaction  tape  file  has  a  file  Id  of  'TRANS  TAPE  156'  and  the  file 
serial  number  is  556783.  It  is  to  be  mounted  on  drive  182. 


The  ISAM  file  occupies  3  disk  packs  as  follows; 

The  MASTER  INDEX  is  on  disk  pack  number  122375  and  begins  on  cylinder  15 
track  3  and  ends  on  cylinder  15  track  5.  Mount  pack  on  drive  131. 

The  CYLINDER  INDEX, as  required, begins  on  the  next  track  after  the  master 
index  and  takes  12  tracks. 

The  PRIME  AREA  is  on  disk  pack  number  155732  and  occupies  cylinders  5 
thru  167.  Mount  that  pack  on  drive  132. 

The  INDEPENDENT  OVERFLOW  AREA  is  on  disk  pack  number  123723  and  occupies 
all  of  cylinder  12.  Mount  that  pack  on  drive  133, 
Retain  the  file  for  ISjH  days  and  call  it  'ISAM  MASTER  FILE  156'. 

The  COBOL  program  selects  are  as  follows; 

FILE-CONTROL. 

SELECT  IT-TRANS-TAPE-FILE 

ASSIGN  TO  SYS010-UT-240j^-S-SQTAPE. 
SELECT  OM-MASTER-FILE 

ASSIGN  TO  SYS^15-DA-23U-I-ISMAST 

ACCESS  IS  SEQUENTIAL 

RECORD  KEY  IS  OM01-SSAN. 
SELECT  OR-MASTER-CREATE-RPT 

ASSIGN  TO  SYS0^5-UR-1403-S. 
I-O-CONTROL. 

APPLY  CYL-OVERFLOW  OF  2  TRACKS  ON  9M-MASTER-FILE 
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SOLUTION: 

//  JOB  ISAMEX 

//  OPTION    LOG. DUMP  

//  ASSGN  SYS0^5,X'j2jj2(E' 

//  ASSGN  SYS01i2(,X'182' 

//  TLBL    SQTAPE, 'TRANS  TAPE  156 556783 

//  ASSGN    SYSjai5,X'131  ' 

//  ASSGN  SYS020,X'132' 

//  ASSGN  SYSJZl25,X'133' 

//  DLBL    ISMAST, 'ISAM  MASTER  FILE  156 M8)Zf, ISC 

//  EXTENT  SYSJZ}l5,122375,4,jZi,303,3 

//  EXTENT    SYS015, 122375, 4, 1,3^6, 12 

//  EXTENT    SYS)^2|^,  155732,1  , 2,  ljZfjZf,326j? 

//  EXTENT    SYS025, 123723, 2, 3, 24^,20 

//  EXEC  CREATE 

/& 
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EXERCISES 

Write  the  ULBL  and  EXTENT  cards  to  create  an  ISAM  file.  The  prime  data  area 
will  be  the  area  from  cylinder  2j3  track  0  through  cylinder  119  track  19.  The 
master  index  will  use  cylinaer  140  track  0  through  cylinder  140  track  3.  The 

cylinder  index  will  use  cylinder  14t)  track  4  thrniigh  rylinHPr  idi^  r>^:.ri   

ine  ti  le  is  to  ue  stored  on  pacK  223556  and  is  to  be  saved  for  5^30  days.  Use 
tne  following  select  statement. 

SELECT  INVENTORY-MASTER-FILE 

ASSIGN  TO  SYSj309-DA-2314-I-HSTFLE. 


2.    Write  the  ASSGN,  DLBL,  AND  EXTENT  cards  zo  create  an  ISAM  file  on  disk  pack 
443556  drive  135.  The  file  should  not  expire.  The  prime  data  area  will  be 
cylinder  29  track  ^  through  cylinder  35  track  19  and  the  cylinder  index  will 
be  from  cylinder  28  tracK,0  tiirough  cylinder  28  track  2.  Use  the  following 
select  statement. 

SELECT  CUSTOMER-MASTER 

ASSIGN  TO  SYS005-UA-2314-I-CUSMSTR. 
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EXERCISES 


3.    Wriie  tne  JCL  to  compile  and  execute  a  COBOL  program  whicn  is  to  randomly 
retrieve  and  update  tne  master  file  created  in  problem  #2.  The  file-ID  for 
tne  transaction  file  is  TkANSACTlON  FILE  and  the  serial  number  is  100)3)35.  No 

.»  Qj;flfcr..„rnfnrmatinn  is  neeripfl  fnr  chBcking  this  iQbo-li.pisk  drivt  134  diid-Tapg 

drive  183  are  to  be  used.  Use  tne  following  COBOL  select  statements. 

SELECT  MASTER-FILE 

ASSIGN  TO  SYS021-UA-2314-I-CUSMSTR. 
SELECT  TRANS-FILE 

ASSIGN  TO  SYS022-UT-240iD-S-TRNSFLE. 
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LIBRARIAN 

As  we  have  seen  the  DOS  system  consists  of  three  libraries;  the  core 
image  library,  the  relocatable  library,  and  the  source  statement  library. 
We  have  also  seen  some  of  the  functions  performed  on  the  libraries. 

1.  The  linkage  editor  places  nhe  link  edited  phases  into  the  core  image 
library  either  in  the  temporary  portion  for  immediate  execution  or  catalog 
them  as  permanent  members  for  execution  at  any  time. 

2.  The  system  loader  finds  executable  phases  in  the  core  image  library 
and  loads  them  into  memory  for  execution. 

3.  Link  eaitorwill  load  modules  into  SYSLNK  from  the  relocatable  library 
to  be  link  edited. 

4.  The  linkage  editor  will  extract  relocatable  IOCS  modules  from  the 
relocatable  library  and  attach  them  (link  edit)     to  COBOL  Programs. 

5.  The  COBOL  compiler  and  the  assembler  have  the  capability  of  extracting 
source  code  from  the  Source  statement  library  and  combining  it  with  other 
source  code. 
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FUNCTIONS  OF  LIBRARIAN 

1.  Maintenance  functions  add,  delete,  or  rename  components  of  the 
three  libraries,  condense  or  remove  spaces  that  may  exist  in  the 
directories  or  libraries  themselves.    Alter  the  amount  of  space  allocated 
for  each  library.    The  program  phase  that  performs  this  maintenance  function 
is  called  MAINT  and  it  applies  to  all  three  libraries. 

2.  Service  functions  will  print  and/or  punch  library  members  and 
directories.    There  all  four  program  phases  that  perform  these  services 
and  they  are: 

DSERV  -  library  directories  (all) 
CSERV  -  core  image  library 
RSERV  -  relocatable  library 
SSERV  -  Source  statement  library 

3.  Copy  functions  will  either  completely  or  selectively;  copy  the  disk  pack  on 
which  the  system  resides,  create  private  libraries,  or  merge  libraries.  The 
program  phase  that  copies  libraries  is  called  CORGZ. 
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1.    DSERV:    the  purpose  of  DSERV  is  to  list,  on  the  printer,  the  contents 
of  the  directories  of  the  three  DOS  libraries  in  a  readable  format. 
Format  of  control  card: 

IS  DSPLY  directory  [  ^  directory] 

directory:    can  be  one  of  the  following: 

TD 

CD 

RD 

SD 

ALL 

EXAMPLE:    The  following  example  would  be  used  to  cause  the  system  to 
print  out  the  directory  for  the  core  image  library. 

//  JOB  CORING 

//  EXEC  DSERV 

0    DSPLY  CD 

/* 

/& 


CSD.SFW.OS 


?4/01/7B 


PAGE  1.0 


root  phase 
of  COBOL 
CQmgJJer^ 


see  page  8-7 


supervi sor 

transient 

routine 


PMAS^ 

DISK 

m. 

SIZE 

LOAD 

ENTRY 

N  AM  ?7 

ADOR 

P.COS 

LAST  PCD 

AODR 

flOOR 

~*  ~*  — 

 HEX  

c 

H 

R 

1     ^  ^%  ^  ^  ^\  ^ 

PLCRS  EOE 

034 

I  8 

03 

001 

028R 

005000 

005000 

PLC  kK  nNP 

034 

la 

04 

00  1 

0704 

005000 

905000 

034 

1 9 

01 

007 

0720 

000000 

000608 

P2  3  AT  PL  E 

035 

00 

04 

00  1 

1601 

000000 

0005C  0 

P<3SSPLE 

03S 

0  1 

01 

007 

0209 

000648 

002148 

H\           ^       1  t  1  p— 

P?^$PMLF 

03S 

02 

04 

020 

020«> 

002E80 

00A6D8 

PW4  140K 1 

03S 

07 

04 

018 

0409 

000000 

006808 

035 

1? 

0  2 

001 

1378 

0^60C0 

0360C0 

^  1 1   ^   «^  I 

suHSPnoL 

03S 

12 

03 

006 

1659 

03  66  28 

0381 2y 

035 

14 

01 

01  5 

0884 

038n&0 

0307P8 

P  ?  ^  AT  P30 

035 

17 

04 

00  1 

1  364 

0360C  0 

0360C  0 

035 

1  8 

01 

006 

1659 

036A18 

0381 18 

^  ^       r\  t  t 

p>^^S^"»^0 

035 

l<=* 

03 

015 

0852 

03^090 

038090 

P/  5  AT  ^^40 

036 

03 

0? 

00  1 

1641 

000000 

0005E8 

T    ^   ^*    FN    /  f> 

036 

03 

03 

007 

0209 

0006  70 

0021 70 

3  S  ^ W40 

036 

0  5 

0? 

0  18 

0401 

002EOR 

009AA8 

0  7  OAT  S 

03^ 

09 

04 

020 

0912 

000000 

00653^^ 

S7621AP5 

036 

14 

04 

01"^ 

021B 

000000 

000000 

?^  2*^ 

03^^ 

I  B 

01 

013 

02  1« 

000000 

000000 

^ ?6?r)  J  A  R 

037 

01 

02 

013 

0218 

000000 

000000 

.A  *^  ^    ^  ^  r%.  t  ■  ^ 

037 

04 

03 

013 

0218 

000000 

000000 

^2^2LEE2 

037 

07 

04 

01  Q 

02  98 

000000 

000000 

^  7s  J  Ah 

0*^7 

15 

04 

013 

0218 

000000 

000000 

^      <T P  3 

037 

19 

01 

01  9 

0  298 

000000 

000000 

1^  ^  ^  2  T  j  A 

03R 

03 

04 

013 

0218 

000000 

000000 

^?n2Txi ^ 

03B 

07 

0  I 

013 

0218 

000000 

000000 

n  Q  4  A  T  P 

038 

10 

02 

006 

1659 

000000 

OOIBOO 

Pi.  I J  RHL 

03^ 

n 

04 

017 

0650 

007800 

00B470 

r  n  ^  n  L  I  0 

038 

16 

01 

017 

1428 

00A36O 

00 A36A 

p COBOL  1  7 

03O 

00 

02 

01^ 

1216 

OOA  360 

00A36A 

^^CO^QLl  I 

03<^ 

05 

01 

016 

0  140 

00A360 

OOAP08 

PCOBHL  20 

039 

09 

01 

01  3 

1264 

00 Al 58 

00A168 

^CHRTL  ?  ? 

03<^ 

12 

02 

015 

0384 

OOA 158 

008 148 

0  3^ 

1  6 

01 

n\h 

0404 

00 Al 58 

00A9O0 

rc^^iL'^0 

040 

00 

01 

00  7 

1540 

OOA 158 

OOC  7A  8 

040 

01 

04 

023 

15  83 

009nAO 

0  12474 

-  . n «i *} |_ s 0 

040 

07 

0*^ 

02? 

0  0  48 

OO^OAO 

01 1A70 

13 

0  1 

02  1 

0«  82 

009PA0 

0  1 1380 

^CC^'IL^O 

040 

1.  8 

02 

016 

1426 

0090An 

009DAC 

p^OR^L^  1 

041 

02 

0  2 

002 

05  73 

00C3nA  0 

00^5084 

r*     <^  1 

'COSHL  70 

041 

07 

04 

02^ 

0392 

009208 

009294 

^    A  A  ^  1 0  ^ 

041 

OQ 

0  7 

001 

000^ 

000000 

000000 

041 

09 

03 

013 

0  218 

000000 

000000 

\n^c  ri.  A 

041 

12 

04 

004 

040  « 

00000  0 

OOQP AP 

''^  J'^«CTL0 

041 

13 

04 

004 

0944 

OOO^AB 

000f=A8 

«JOBCTLF 

041 

14 

04 

004 

04  5  3 

'  000PA8 

000f=A8 

041 

15 

04 

0  04 

0  744 

000^^  A  8 

000FA8 

♦  JO^C  Tl  J 

041 

1  6 

04 

•)04 

040-^ 

000PA8 

oo:)PA8 

ERIC 
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SYSTEM  f^IRECTOOY 


CnRE-I^Ar,c 


»Fl.ilCAURLE 


S^l)RCC-f;UTE\jE^'T 


24/01/78 

r  H  R  E 

r  H  R  E 

C 

H  R  P 

OlRECinOY  STARTING  4DDRFSS 

00  10  01 

46  00  01 

Al 

00  0] 

OIHECTOPY 

NEXT  ENTRY 

00  n  11  04 

46  31  14  15 

61  00  20  09 

OIRFCTORY  UST  ENTRY 

00  l"^  15  17 

4f>  04  17  19 

61  01  27  09 

LIBRARY 

STARTING  ADDRESS 

00  16  01 

46  05  01 

61 

02  01 

LIBRARY 

NEXT  AVAILARI  E  ENTCY 

42  11  01 

57  06  02 

88 

14  15 

LIBRARY 

LAST  AVAILABLE  E^ITRY 

45  19  04 

60  19  16 

1Q  ?7 

It  r  1 

DIRECTORY 

ENTRIES  ACTIVE 

975 

609 

137 

LIBRARY 

BLOCKS  ALLOCATED 

?M6 

4720 

20466 

LIBRARY 

BLOCKS  ACTIVE 

3357 

14373 

LIBRARY 

BLOCKS  nELFTEO 

52 

IBO 

545 

LIBRARY 

BLOCKS  AVAILABLE 

27ft 

11^3 

AUTOMATIf 

CONDENSE  LIMIT 

00 

00 

00 

LIBRARY 

ALIOCATFO  CYlINnEPS 

45 

15 

IB 

DIRECTORY  ALLOCATEn  TRATK"; 

06 

05 

02 

03 
I 


o 

o 
« 

-n 
z 

i 

0 


6 


■>6 


(J1 
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CSERV:    The  purpose  of  GSERV  is  to  print  out  on  the  printer  and/or 
punch  on  the  card  punch  the  members  of  the  core  image  library. 
Format  of  control  card; 

)5  operation    >5  operand  [  ,  operand  2] 

Operation:    May  be  one  of  the  following: 
DSPLY 
PUNCH 
DSPCH 

Operand:    May  be  one  of  the  following: 
phasename 
progl.ALL 
ALL 

EXAMPLE:    Print  out  all  of  the  phases  of  FCOBOL 
//  JOB  PRTFCOB 
//  EXtC  CSERV 
14  DSPLY  FCOB.ALL 
/* 
/& 
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OOM50 
OOAlPf) 
OOAIPO 
nOMFO 
flflA2lO 
0OA24O 
OOA?70 
0OA?AO 

ooA?m 

OOA^Of) 
00A330 
O0A360 
00A^<'0 
OOA3fO 

^00A4?0 
00A4?!) 
lOA^flO 
OOA<^BO 
OOAAEO 
00A510 
00A540 
00A!i70 
(10A5A0 
O0A5P0 
OOftfcOO 
00*630 
00A6f.0 
O00A690 
pOGAfCO 
!({00A6n 
E00A7P0 
oonA7SO 
00A7a0 
''00A7P0 
00A7F0 
OOABIO 
00A140 
00A870 
O  OOAfliO 

'ERIC 


lOOMon? 

RQAOOOOfi 

47Foe7nfl 

'3?F')9fi4A 
70080207 
4S'50BO0C 
FG0fl91R0 
F01447F0 
F0Fn4';30 
CODECODE 
OCOOOOOO 

QS0l«0O0 

oooo'^Bri 

COOOOOFF 
D203C1F0 
f?18'iRC0 

ocoqsc40 

f??40SFF 
1R901PPP 
5RC0F?1B 
47R0P048 
F03gn20? 
'iflF0C20B 
f?04lP.77 
FOFCIBA? 
47F0F0Ar 
0003'+122 
F1'5F0202 
07FES0E0 
f2WlC0 
07F':0000 
•iAOOCPiC 
20004710 
5A40CIF8 
F0RA1832 
5fir0F0EC 


4740R7FA 

9f)'^0PMl 
9?F0fiS31 
71O4201R 

o?on4n4i 

flnp^47F0 
P4104ir0 
R94r41C0 

Qinooooo 
oocooooo 

lRn4310 
4770PA12 
40n000FF 
D2002000 
11CR9101 
Cl'iAOSFF 
C22P5R70 
qRFFC240 
53P0C?A0 

41E00O0C 
f?P5?000 
O^EFSRFO 
qPO?000 
4P20003 
12334770 

poonuo 

C2B5C2efl 
F?ir«lR4R 
?00047fi0 
OOO0A164 
91C02000 
F05A4122 
BR400004 
SP30C2B4 
07Ff0000 
478070A8 


P^OOPfiPfi 
47F0P7nR 
47P0R74A 
47F0R74A 
4120F0cr 

mm\ 

flpFf,n203 
706R41P0 
71%41Rn 
0000A2AR 
00000000 
4043'^COO 
0? COP  000 
0000A65R 
B000D200 
11404110 
9PFir290 
r.  1504177 
58030000 
41fiRR000 
91081000 
47F0F1R6 
S8S0r2R4 
C2941?Rfi 
47fl0F0E? 
44B0f2n4 
F13ft41E0 
100047R0 
5R10C2R4 
r2'iR')RE0 
FlFi4122 

onoooooo 

47eOF038 
00014122 
41224000 
1A1391C0 
0000Alft4 
95R190F2 


nftD3F3Fn 
n?009RR3 
10090201 
92F49RB2 
921=29844 
92F69fl44 
SB7097A0 
4043O152 
9UB9U4 
F0404120 
E06C1«22 
OOOOA'52C 
00000000 
915PU21 
o?0'i40?0 
003FFFFF 
20009000 
F0549201 
5BC0F064 
00AC5B77 
54000200 
lAAP5flfl0 
4780F07fl 
58210004 
5450r?Cfl 
4770F04C 
D202C?B5 
4770Flir. 
000447 FO 
FI701244 
5410C2Cfl 
C2905RCO 
00034740 
OOOOPfllC 
41220003 
00064342 
19204780 
20004780 
40000143 
478C7060 


F3Ff^R7Eft 
100317AA 
01A5OBP3 
47F0P7nR 
92F0H631 
92F0R631 
0207706B 
Q7064020 
5fllOflDD? 
F0P14530 
4530R94r, 
0000,44fr, 
00000000 
43004044 
OAOOQIRO 

FFoonooo 

00000000 
11405fil0 
07FF0000 
00005B77 
f420C2A4 
C1505RRR 
904PC258 
5020C2Dr 
47F0F088 
41E00004 
20005R70 
123347R0 
F1B61R23 
4770Flfi6 
5010C2E0 
F2205RF0 
FlFHl?? 
50C0F0EC 
,  4740F03R 
00004122 
f09A91FF 
F0CE4122 
58108C4f) 
S50590f2 


05011002 
43U0002 
nPOloiAH 
92':59flR2 
47F0B74A 
47F0R741 
20100207 

4iioaoiP 

9?FF1000 
B94C4ir.0 
O7F5D503 
n000A424 
00000000 
06001fi20 
00000209 
00F'=FFFF 
50C0F064 
1U041F0 
0000A164 
00004135 
1A209837 
01404iaA 
1R^69104 
58F0C20C 
91041000 
47F0F1B6 
C2B45470 
F11241F0 
5flF0C20C 
41^00000 
47F0F1A2 
F21C07FF 
00031RBB 
58CDF0E8 
41220003 
400147F0 
20004770 
00034740 
05010200 
47807050 


100^4730 
fl9A00006 
9R35Q201 
47F0P7DR 
Q2F39B44 
4120F0fC 
709C2000 
04009180 
D23C1001 
709C41R0 

0000A421 
00000000 
41100200 
OOOOOIFF 
050O2OOO 
5BC0F060 
0006D7FE 


70009180 
C2?C07FE 

80000202 
10004770 
05EF5RP0 
47 10 F ICC 
12664770 
C2CR4122 
00084 ?F0 
05EF5BF0 
47F0F1B6 
18445040 
50  ROC  25 9 
50BOC2EO 
90FFC290 
1R444342 
F0flC95qA 
F0B25410 
F0CF4122 
5000900C 
952290E2 


87fl45500 
42409 BR4 
91A7922P 
DP00RC46 
92F0R631 
5870979R 
02077000 
10024710 
10004160 
E0504120 
07830200 
00004380 
lR2ilPll 
1Q214720 
003FFF00 
90000200 
90F 1:2^0 
10001000 
9037:22C 
30004780 
50901 248 
C2BD4000 
F0405fl20 
C2949180 
904RC258 
F0RA59B0 
00031266 
F1R6183B 
C294qC0 
910C1000 
C2E05030 
5R210000 
43B20000 
5040C258 
00004124 
20004780 
C2AR4111 
00031832 
47F070I4 
47807050 


10054770 
06009884 
qAF0A09 
9BP2D203 
47=08744 
D207706B 
20080207 
PBCAOAO? 
E01BD7>0 
E0RF4530 
4041C001 
OCOOOOfiC 
D230R012 
fiB3C0620 
00000200 
00000000 
5810Ci50 
411100FF 
90PFC240 
F04C9160 
41400004 
58R0C2RC 
C20C5850 
20004780 
5B60C2C4 
C20C4740 
077619R5 
184AD202 
20004780 
47B0F19C 
C2DC984R 
5420C200 
4122B001 
182158F0 
20014342 
F07A9598 
02001821 
43420000 
000 OC 8 28 
952490E2 


87649513 

10050200 

92F198B2 

BC53finCE 

92F4qp44 

2010D207 

7l9420lfl 

91401005 

10006030 

RQ4C41C0 

00000000 

00F0007R 

00000000 

5420907C 

000002.00 

00009000 

D2fl7C154 

46E0F036 

1R525450 

30004710 

1R881B00 

5R90C24R 

C2E01255 

F05F4122 

1R335P91 

F12R1R2B 

47R0F11C 

C2B8A0OO 

F1564122 

12444770 

C25858E0 

5020C20C 

58R0C258  ■ 

C20C05EF 

000091F0 

20004770 U) 

5BF0C20CX 
41224001 
45E08A88 
47807050 
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RSERV:  Performs  the  print  and  punch  functions  for  the  relocatable 
library. 

Format  of  control  card 

tl  operation  ^  operandi  [  ,operand2] 

Operation: 

DSPLY 
PUNCH 
DSPCH 


Operand : 

Modulename 

proql.ALL 
ALL 

EXAMPLE:     Punch  out  the  printer  IOCS  module  called  IJDFAFIZ 
//  JOB  PRTPTR 
//  EXEC  RSERV 
0    PUNCH  IJDFAPIZ 
/* 
/& 


ERIC 
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IJOFAPI?   V.M       ^.Q  0000^  BLOCKS  SYSTPm   RE10CATA6LF  LIBRARY 

F(;n                 0^2   0001    1J0F4PI/  '^O   OOOOOO   OOflll^                    LO   000000  000001 

T)(T        OOOOOO    I'^f^    0001    O.nPCOOO  ^l^O^m  OA3'0000  47=0F01A  r,9pir/,r^  Cll)7r.9F9  nF99inr) 

mmCl  QCCPfOFC  S^^FOIOIR  Oi,=  00200  lOlTFOOO  IBCCiaOC  43C^1017 

^3[)FF0F7  19DC^7aO  F050^6r-0  ^OmhV  4^nEF107  43C01016  19Cr4770 

101^^780  t:C7^«i?0P  lfl?«0i00  91*^0in?  4710F07^  0A0742[]0  10?P42no 

QiaOl002  471OP0flA 

TXT       100088    136   0001   0AC7D201  10261003  9201  1028  5BE0102B  020n029  101950tO  101  «06FO 

^4001022  '^PEOFOPA  0A0O07FE  91''01002  4710P0PE  04079101  101S47p,0 

10159102  10?607fiE  47F0F0DA  ^1011027  07RE1200  47s^0F0F4  nF007" 

0A0007FF  COCOOflOO  00000000  00000000  P2C7C1F9  FP,P7F6F5  P4F:'r,?Fl 

93CPDUP  03BBB3iB 

TXT       OOOlin   008    0001    A39RE3BP  O^BHOB 

F^|^  404040 
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SSERV^ Performs  the  print  and  punch  functions  for  the  source  statement 
library.    The  source  statement  library  is  divided  into  parts  called 
sublibraries .    There  is  one  for  COBOL  called  'C  and  one  for  the 
assembler  called  'A'  and  in  the  case  of  OSAIA  one  called  'P'  for  cataloged 
JCL  Books. 

Format  of  control  card : 

b  operation       operandi  [  ,  operand2] 


Operation; 

DSPLY 
PUNCH 
DSPCH 


Operand;  sublib.book 
sublib . ALL 
ALL 

Example:     Print  and  punch  the  assembler  sublibrary  of  the 
source  statement  library. 
//JOB  SORLIB 
//  EXEC  SSERV 
0     DSPCH    A. ALL 
/* 
/& 
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18  81.0CKS 


PRIVATE  SOURCE- STATtMENT 


SSI 

LIBRARY 


SKENO  P.C24B 


ERIC 


*  $$/* 

//  EXEC  LNKEDT 

//  ASSGN  SYS006,X'CR0' 

//ASSGN  SYS005,X'PR0' 

//  EXEC 

CSM147206 

SGM145204 

1SG137193 

MSG135191 

SP7 118181 

SFC116179 

SB6108168 

SSG106166 

SP5105156 

SGT103154 

SP4082136 

PFC080116 

PV207116 

PV1067116 

*  $$/* 

255656008FOX  HENRY  E 
326366478ISSAACS  JUDY  I 
353 12037 5BERGERT  KENNETH  B 
545508335CR0MBAUGH  SUSAN  C 
631608320ESSELBORN  RAYMOND 
631985218KAZAC0FF  KOTCHO  K 
6391167 73GRIEBELBAUER  JOHN 
649788627JOHNS0N  SAM  J  JR 
787425848LEWIS  FLOYD  L 
846775121AD0MATIS  RUSSELL 
848521418DEZUTTI  LOUIS  D  JR 
888124 925H0LTZMAN  SALLY  H 
251745252nuINCY  WALTER  0 
2559732506xLEY  MORRIS  0  JR 
35687 9414MCCARTHY  MARY  M 
547033118SMITH  PITTMAN  S 
637427078UNDERWOOD  DEVIL  H 
637474514VERMILLION  BETTY  V 
773137376RIVERA  FRANCES  R 
786214360WHEELER  GREGORY  W 
831195644T0MLINS0N  HARRY  T 
849238650NEWrON  DWIGHT  N 
846493958PARKER  CLYDE  B 
248041032XAVER  RUTH  X 
291777069ZUCKERBURG  HARRY  Z 
353865446YATES  CLARENCE  Y 
115678395GRIFFIN  ARCHIE  G 
161312570COSTELLO  LOUIS  C 
337255981DIRKS0N  EVERETTE  D 
535973792ABBOTT  BUD  A  JR 
569264882FORD  GERALD  F 
737745671HUMPHREY  HUBERT  H 


0101SGM101639264 

0101SSG060924487 

0101PV1050161948 

0101SGM061676629 

0101CPL080514535 

0101SGM051557952 

0101SP6001041329 

0101SGT050773699 

0101SGC111139387 

OlOlE-4130614992 

0101SSG030963552 

0101PFC040369948 

0102SO6011054487 

0102PFC000206662 

0102SP6011054487 

0102PFC000206662 

0102SP6081005936 

0102)V2010213992 

0102SGT090728487 

0102PV1000058436 

0102PV1020303236 

0102SSG031019192 

0102E-5100832938 

0102PV204 0435336 

0102SSG131051363 

0103PV1050025653 

0103PV1100010593 

0103SP6131040636 

0201CPL000405288 

0201SSG131051363 

0103PV1050025653 

0103PV1100010593 
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778712763EAGLETON  THOMAS  E 
825391253ISLEY  BROTHERS  I 
923948125BUTZ  EARLE  B 
263233736JOHNSON  LYNDON  J 
357189154MAUSFIELD  MIKE  M 
66588495KISSINGER  HENRY  K 
762042553NIXON  RICHARD  N 
297864442LINCOLN  ABRAHAM  L 
384353898QUEENIE  PATRICIA 
437293380VERDRIVE  EACHMAN 
654619466PATTON  GEORGE  P 
797833538BUMSFELD  DONALD  R 
062535910STEPPENWOLFE  CRAZE 
297275429TRUMAN  HARRY  T 
196468460UNDERDOG  CANINE  U 
258492158ZIMMERMAN  JAMES  Z 
328339176WALLACE  GEORGE  W 
384422357XAVIER  I  A 
6 1198982 9YANKEE  CONNETICUT 
846244754VICTORIOUS  NOT  SO 


021SGT080624264 

0201E-2010364888 

0201E-7071187635 

0301PV1090206487 

0301SFC011117629 

03011SG021665787 

0301SSG050852753 

0301MSqi01573938 

0302SE5020646935 

0302SP6070902498 

0302SGT020898236 

03020PL160482498 

0303SP4010465745 

030PFC000361248 

D3O4PV2090315236 

0304SSgl30989953 

0304PV2120025523 

0304SGT070745888 

0304SP4080448142 

0304PV1050331888 
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CATALOG  NEW  MEMBERS  TO  LIBRARIES 
CORE  IMA.GE  LIBRARY:    We  have  already  seen  in  our  discussion  of 
Job  Control  that  the  LINKAGE  EDITOR  is  the  program  that  catalogs 
phases  to  this  library. 

EXAMPLE:    Catalog  an  object  deck  to  the  core  image  library  and  call 

the  new  phase  CATX. 

//   JOB  CATLEX 

//   OPTION  CATAL 
fc5    PHASE  CATX,* 
0  INCLUDE 

OBJECT  DECK 


/* 

//  EXEC  LNKEDT 
/& 

RELOCATABLE  LIBRARY:     The  program  that  catalogs  modules  into  this  library 
is  called  MAINT. 
Format  of  control  card: 

CATALR  modulename  [  ,  v.m] 
Modulename        A  unique  name  consisting  of  1  to  8  alphameric  characters 

the  first  of  which  is  alphabetic. 
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v*m  This  optional  entry  is  used  to  provide  a  version  and 

modification  number  to  further  identify  this  module  from 
other  previous  copies  with  the  same  name. 
V  can  range  from  0  to  127. 
m  can  range  from  0  to  255. 

EXAMPLE:     Catalog  an  available  object  module  to  the  relocatable 
library  and  call  it  M0D516.    For  this  copy  use  this 
month  (June)  for  the  version  and  todays  date  (27th)  for 
the  modification  number. 

//  JOE  CATALREX 
//  EXEC  MAINT 
0  CATALR    MOD516,  6.27 

OBJECT  MODULE 


8  -14 
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SOURCE  STATEMENT  LIBRARY: 

called  MAINT. 

Format  of  control  cards: 

tSCATALS 

Sub lib 


bookname 


v.ra. 


555 

The  program  that  catalogs  to  this  libi 


>rary  is 


Sublib .bookname  [   ,v.m.   [  ,  C]] 
The  single  alphabetic  character  which 
identifies  which  sublibrary  this  book  is 
to  be  cataloged  into, 

The  unique  name  for  this  book  within  its 
sublibrary. 

1-8  alphameric  character  the  first  of  which 
must  be  alphabetic. 

Further  identification  to  allow  us  to 
differentiate  this  from  previous  versions. 
This  character  is  entered  as  part  of  the 
directory  and,  if  used,  requires  the  user 
to  specify  the  correct  version  and  modification 
number  if  he  is  trying  to  change  the  module 
using  the  UPDATE  feature  of  MAINT. 
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16  BKEND  [sub. book]  (^,SEQNC£j[^COunt][,CMPRSDl 
This  control  card  must  appear  in  front'  and  behind  of  each  book  that  is 
cataloged  into  the  source  statement  library.     The  optional  operand  entries, 
if  used,  need  only  be  put  in  the  front  BKEND  card. 

Sub. book  same  as  operand  in  CATALS  card 

SEQNCE  The  sequence  numbers  punched  in  card-columns 

76  to  80  are  checked  for  ascending  sequence 
numbers* 

Count  used  to  specify  the  number  of  cards  in  the  book 

including  the  two  BKENDs. 

CMPRSD  compress  card  formats  by  removing  blanks. 

EXAMPLE:     Catalog  into  the  source  statement  library  a  standard  file 
description  book  and  call  it  STDFD74, 

//  JOB  CATALGS 

//  EXEC  MAINT 

0    CATALS  C.STDFD74 

ji    BKEND    C.STDFD74  CMPRSD 

( 

SOURCE  BOOK 


o  •! 


t4  BKEND 

/* 

/& 
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RENAMING  MEMBERS  OF  LIBRARIES 
The  program  MAINT  performs  this  function  for  all  three  libraries. 
Core  Image  Library 


//  JOB  EXAMCIL 
//  EXEC  MAINT 

^  RENAMC  oldphasename,  newphasename 
/* 
/& 


//  JOB  EXAMRLL 
//  EXEC  MAINT 

\fi    RENAMR  oldmodulename,  newmodulename 

/* 

/& 


//  JOB  EXAMSSL 
//  EXEC  MAINT 

\i    RENAMS  sublib  .oldbookname,  sublib.newbookname 

/* 

/& 


NOTE:     All    of  these  operations  could  have  beta  done  in  a  single  job. 

2.     The  operand  field  can  be  repeated  to  specify  more  than  one  rename 
operation. 


Relocatable  library 


Source  Statement  library 
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DELETING  MEMBERS  FROM  LIBRARIES 
The  program  MAINT  performs^  this  function  for  all  three  libraries. 
CORE  image  library 

//  JOB  EXDELCIL 

//  EXEC  MAINT 

^    DELETC  phasename 
or  0     DELETC    prog. ALL 

/* 
/& 

NOTE:     prog. ALL  will  delete  every  phase  in  the  core  image  library  whose 
name  begins  with  the  4  characters  specified. 
Relocatable  library 

//  JOB  EXDELRLL 

//  EXEC  MAINT 

0     DELETR  modulename 
or  fei     DELETR  Prog. ALL 

or  feJ     DELETR  ALL 

/* 

/& 

NOTE:    Prog. ALL  deletes  all  modules  whose  first  3  characters  are  specified. 
ALL  deletes  the  entire  library. 
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SOURCE  STATEMENT  LIBRARY 


//  JOB  EXDELSSL 

//  EXEC  MAINT 
^  DELETS  Sublib.bookname 
0  DELETS  sublib.ALL 
M  DELETS  ALL 

/* 

/& 


NOTE:    Sub.tib.ALL  delets  the  entire  sub-library 
ALL  deletes  the  entire  library. 
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CONDENSING  LIBRARIES 


If  a  delete  is  perfomed  the  reference  to  the  member  in  the  library 
directory  is  removed.    However,  the  old  copy  still  occupies  space  in 
the  library  itself. 

The  same  is  true  if  a  new  member  is  cataloged  with  the  same  name  as  an 
old  member.     The  old  member  is  deleted  from  the  directory  but  still 
occupies  space  in  the  library  itself. 

The  program  MAINT  perform  the  condense  function  for  all  three  libraries. 


//  JOB  EXCONDLB 

//  EXEC  MAINT 

0  CONDS  CL 
or  0     CONDS  RL 

or  0     CONDS  SL 

or  0     CONDS  CL,  RL,  SC 

/* 

/& 
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UPDATE  (Change)  SOUkCE  LIBRARY  BOOKS 

Once  books  are  cataloged  to  the  source  statement  library  there  is  no 
need  to  maintain  ther^.  in  punched  card  format.     However,  there  may  be 
a  requirement  to  make  corrections  or  minor  changes  to  library  member'  - 
One  way  to  do  this  is  to  punch  up  a  new  copy  with  changes  and  catalog 
it  over  the  old  copy.     Another  method  would  be  to  use  the  UPDATE  function 
of  the  program  MAINT  to  make  these  minor  changes. 

NOTE:     In  order  to  update  a  book  it  must  have  been  sequenced  prior  to 
being  cataloged.     In  the  book  card  columns  73  -  76  will  contain  the 
1st  four  characters  of  the  bookname  and  card  columns  77  -  80  will 
contain  ascending  sequence  numbers. 

The  control  cards  are  as  follows: 
//  EXEC  MAINT 

^    UPDATE  sublib, bookname,   [s.book],   [v.m],  [nn] 
)  ADD  seq-no 

)  REP  first-seq-no  [  ^last-seq  no] 
)  DEL  f irst-seq-no [  ,  last-seq-no] 
)  END  [v.m.[^C]] 
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UPDATE      sublib.bookname  ,  [S_.book]   ,[v.a.],  [mm] 
Subllb.bookname  The  name  of  book  being  updated 

s.book  The  temporary  name  given  to  the  old  book  to 

preclude  deleting  it,  in  the  event  that  an  error 
was  made  in  the  update. 
NOTE:     If  the  update  was  successful  this  temporary  book  would  have  to  be 
deleted. 


v.m. 


An  optional  that  would  be  required  if  the  old  book 
requires  change  level  verification. 


mm. 


This  is  the  interval  to  be  used  when  new  book  is 

assigned  sequence  numbers.     Default  is  01  

if  no  resequence  desired  enter  "NO"  in  this 
position. 
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)  ADD  seq-no 

Seq-No  applies  to  the  sequence  number  in  card  columns 

77  -  80  of  member  book  cards. 

ACTION:     The  'seq-no'   in  the  ADD  card  serves  to  indicate  behind  which 
card  in  the  oldbook  to  place  the  cards  that  follow. 
EXAMPLE: 


St  3 


OLD  BOOK 


05  Filler 


05  Filler 


Pic  X  (10) 
Value  spaces. 

Pic  X  (9) 
Value  'LAST  NAME', 


SDFD0120 
SDFI30130 
SDFD0I40 
SDFD0150 


CONTROL  CARDS 
//  JOB  UPDATE IT 
//  EXEC  MAINT 

UPDATE      C.SDFD150, , ,10 
)     ADD  0130 

05  Filler  Pic  X(4) 

Value  'Dept' . 

)  END 

/* 

/& 

NEW  BOOK 

05    Filler  Pic  X(10) 

Value  spaces . 

05    Filler  Pic  X(4) 

Value  'Dept', 

05    Filler  Pic  X(9) 


SDFD0120 
SDFD0130 
SDFD0140 
SDFD0150 
SDFD0160 
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)  REP    first-seq-no  [,  last-seq-no] 
ACTION:     The  cards  in  the  old  book  starting  with  ' first-seq-no'  and 
ending  with  'last-seq-no'  are  deleted  and  the  source  card(s)  that 
follow  the  )  REP  card  are  put  in  their  place.     One  or  more  old  cards 
can  be  replaced  by  one  or  more  new  cards. 

)  DEL    first-seq-no  [,  last  seq-no] 

ACTION;     If  only  the  first  operand  is  used,  only  that  card  is  deleted - 
If  the  two  operands  are  used  the  series  of  cards  beginning  with  the 
first  and  ending  with  the  second  will  be  deleted. 


)  End  [v.m-   [,C  ]] 


This  card  indicates  the  end  of  updates  to  a  book. 


v.m 


new  version  and  modification 


number  to  be  placed  on  new  book.     Suggestion:  month. day  (6.29) 


C 


indicates  change  level  verification  is  required  before  any 


subsequent  updates  to  this  book* 
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REALLOCATION  FUNCTION 


5C5 


The  reallocate  function  is  used  when  it  becomes  necessary  to  change  the 
size  of  the  libraries  on  the  system  resident  pack. 

//  JOB  CHNGIT 

//  EXEC  MAINT 

j4    ALLOC  id=cylin  (track)   [ ,  id=cylin  (track)  , .  .  . . 
/& 

id      this  tells  the  system  which  library  CI  (Core  image),  RL (relocatable) ^ 
or  SL  (Source  statement). 

cylin        Specifies  the  number  of  cylinders  to  be  allocated  for  a 
particular  library. 

traCK        Specifies  the  number  of  track  to  be  taken  from  the  beginning 
of  the  first  cylinder  to  store  the  library  index. 

NOTE:     for  the  computation  of  required  space  see  IBM  system  control  and 
service  manual. 
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COPY  FUNCTION 


The  copy  function  perform  the  following  operations,  individually  or 
in  combination: 

1.  Defines  and/or  creates  a  new  system  Pack* 

2.  Defines  and/or  creates  private  libraries • 

3.  Transfers  phases,  modules,  or  books  between  any  assigned  libraries. 

Define  and  create  new  system  pack 
//  JOB  COPY 

//  ASSGN  SYS002,  X'  191" 

//   ULliL  IJSYSRS,   'DOS  SYSTEM  RESIDENCE  FILE*,  99/365, SD 
//  EXTENT  SYS002, 111111,  1,  000,00001,  1219 
//  EXEC  CORGZ 

0    ALLOC  CL=60 (10),  RL=3G(10),  SL=30(10) 

0    COPY  ALL 

/* 

/& 

COf<GZ    'i^^  program  phase  that  performs  the  copy  function. 
ALLOC    Same  as  described  in  Reallocate  function. 

COPY  ALL     Cause  all  of  libraries  to  be  copied  onto  the  new  pack. 
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EXERCISES 

1.  Write  the  job  control  language  necessary  to  print  the; directories  of  the 
core  image  library  and  the  source  statement  library. 


2.  Write  the  job  control  language  necessary  to  cause  the  following  to  be 
printed.   


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


P.FDMS57 


BKEND 


V.M 
C.FDMS57 


1.5 


I  BLOCKS 


00001 

00002 

00003 

00004  01 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 


RECORD  CONTAINS  80  CHARACTERS 

LABEL  RECORDS  ARE  OMITTED 

DATA  RECORD  IS  ITQl-CARD-RCD. 

ITOl-CARD-RCD. 

05  ITOl-NAME 

05  ITOl-SSAN 

05  IT01-6RADE 

05  ITOl-ADDR 

05  ITOl-PT-SCORE 

05  ITOl-PHONE 

05  ITOl-UNIT 

05  FILLER 


BKEND 


SOURCE  STATEMENT  LIBRARY 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(20). 

919). 

X(2). 

XC20). 

9(3). 

9(4). 

X(10). 

X(12). 


0 

G 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


G53 
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3'.  Write  the  job  control  language  necessary  to  catalog  an  object  module  in 
card  deck  form  into  the  proper  library  and  call  it  Z00M5* 


4.  Write  the  job  control  language  necessary  to  catalog  a  set  of  JCL  cards  into 
the  proper  library  and  call  it  PR0C97. 


5.  Write  the  job  control  language  necessary  to  delete    GOPHASE    from  the  core 
image  library  and    M0D84   from  the  relocatable  library  and  also  condense  all 
three  libraries. 
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DOS  UTILITY  PROGRAMS 


1.  INTRODUCTION.    Whatever  the  specific  uses  of  a  data  processing  system, 
certain  unique  operations  exist  that  must  be  performed  frequently.  These 
operations  laay  differ  in  detail,  depending  on  the  particular  machine  config- 
uration and  data  format  for  the  individual  user,  but  the  essential  function 
remains  the  same.    Generalized  routines  designed  to  satisfy  specific  functions 
would  ease  the  burden  of  programming  these  operations.    These  routines  must 

be  flexible  enough  to  allow  the  user  to  assign  the  specifications  of  his 
particular  problem. 

One  type  of  program  that  meets  these  requirements  are  utility  programs.  They 
are  designed  to  assist  the  user  in  day-to-day  operation  of  his  installation. 
With  these  programs,  the  user  can  perform  certain  frequently  required  opera- 
tions, such  as  transferring  disk  storage  files  to  cards  or  tape  and  printing 
out  areas  of  tape  or  disk  for  program  testing  purposes,  without  programming 
effort. 

2.  EXPLANATIONS  OF  THE  UTILITY  SPECIFICATIONS. 

a.     File  to  File  Utilities.     Elev€^.:  utility  programs  are  provided  for  the 
transfer  of  data  files  from  any  of  the  normal  input  devices  to  any  of  the 
normal  output  devices.     A  file  can  be  transferred  between  unlike  storage 
mediums  (tape  to  disk),  like  mediums  (tape  to  tape),  or,  in  the  case  of  disk 
to  disk,  the  files  may  be  transferred  from  one  area  to  another  area  of  the 
same  unit. 

A  file  can  be  transferred  from  one  input  medium  to  an  output  medium  with 
these  option: 

*  COPY  -  indicates  that  the  file  is  to  be  transferred  from  an  input 
medium  without  change  to  the  format  of  the  records  or  file. 

*  REBLOCK  -  transfers  the  input  file  from  an  input  medium  to  an  output 
medium  with  only  the  block  size  being  changed. 

*  FIELD  SELECT  -  rearranges  or  drops  fields  within  each  input  record,  or 
converts  them  to  zoned  or  packed  decimal. 

*  REBLOCK  AND  FIELD  SELECT  -  is  a  combination  of  the  reblock  and  field 
select  options* 

Printer  output  allows  you  to  show  :he  output  in  three  ways: 

*  DISPLAY  -  allows  you  to  display  a  byte  for  ^yte  representation  of  the 
information. 

*  LIST  -  gives  an  edited  representation  of  the  information, 

*  LIST  AND  FIELD  SELECT  -  \s  a  combination  of  the  list  and  field  select 
options. 
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For  the  card  to  printer  and /or  punch  programs,  two  other  output  options  are: 

*  BOTH  PRINT  AND  PUNCH  -  is  a  combination  of  copy  and  list, 

*  BOTH  PRINT  AND  PUNCH  WITH  FIELD  SELECT  -  combines  copy  and  list  with 
field  select. 

These  programs  will  handle  fixed-length,  variable-length,  and  undefined- 
length  records,  however,  only  fixed  or. variable  length  records  can  be 
reblocked  or  field  selected* 

b.  Label  Checking.    Tapes  containing  standard  labels  or  no  labels  at  all 
can  be  processed  without  providing  a  user  routine.     When  using  a  file  to  file 
utility  program  to  process  nonstandard  or  user  labels  or  when  no  label 
checking  is  desired,  an  UPSI  job  control  card  is  required.    Only  the  0  and  2 
bits  are  normally  used.    Mhen  bit  0  is  OFF,  standard  labels  are  checked  on 
input  and  when  it  is  ON,  nonstandard  or  no  label  input  is  checked.    Bit  2  OFF 
indicates  output  standard  labels  while  bit  2  ON  indicates  nonstandard  are  not 
labeled. 

When  an  UPSI  card  is  supplied  to  a  program,  the  byte  is  propagated  from  job 
step  to  job  step  unless  another  UPSI  card  is  supplied  to  reset  the  bits*  All 
of  the  UPSI  bits  are  set  to  0  following  each  job  performed  unless  a  new 
statement  is  supplied.     When  right  most  bits  are  not  set  by  an  UPSI  statement, 
they  are  assumed  to  be  zero. 

c.  Multifile  Volume^  (tape).     The  utility  programs  may  be  used  to  build- 
multifile  volumes  and  read  from  them  at  later  dates.     File  positioning  will 
be  performed  by  logical  IOCS  only  if  the  files  are  labeled  with  standard 
labels.    Output  file.c,  nonstandard  labeled  files  and  unlabeled  files  are  not 
acceptable.    The  file-name,  volume-sequence,  and  file-sequence  numbers  must 
be  placed  in  f  e  T'-BL  card*    When  using  the  utility  programs  to  process 
multifile  tap^  input  volumes,  the  non-rewind-option  (IN)  parameter  found  in 
the  utility  modifier  statement  must  be  specified. 

d.  Multivolume  Files  (tape).     Input  or  output  files  to  these  programs 
can  consist  of  multiple  volumes  and  must  belong  to  the  same  data  files.  The 
control  statement  entries  used  to  process  the  first  volume  are  used  to 
process  each  successive  volume  because  the  same  fields  are  checked  in  each 
volume.    Each  tape  reel  of  a  multivolume  tape  file  is  unconditionally  rewound 
and  unloaded  if  no  alternate  tape  drive  has  been  assigned.    In  all  other 
cases,  the  volume  will  bf*  treated  as  specified  by  the  input  or  output 
parameter  in  the  utility  modifier  statement. 

When  alternate  tape  drives  are  specified  and  processing  is  completed  on  a 
particular  file,  the  last  drive  processed  will  become  the  primary  drive.  If 
a  new  job  is  executed  at  this  time,  the  last  drive  processed  will  then  become 
the  ^-""-Imary  drive  unless  a  reassignment  of  ""ape  drives  is  made. 

e.  Record  Skipping.    Any  number  of  logical  records  (up  to  99,999,999) 
may  be  bypassed  before  processing  is  performed.    This  number  can  be  indicated 
in  the  Rx  parameter  of  the  utility  modifier  statement.    The  number  indicated 
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in  the  parameter  will  be  the  first  record  to  be  processed.    Record  skipping 
cannot  be  performed  for  the  copy  function  (TC),  and  if  specified,  it  will  be  ignored 
ignored.    To  skip  records  at  the  beginning  of  a  file  and  copy  the  remainder, 
the  reblock  function  (TR)  must  be  indicated,  and  the  input-description  and 
output-description  parameters  must  contain  identical  values. 

f .  Sequence  Numbering.     Sequence  generation  on  card  output  can  be 
indicated  in  the  utility  modifier  statement.    A  field  up  to  ten  characters 
long  can  be  punched  into  each  card.    This  field  is  numbered  starting  from  1 
(with  high-order  zeros)  and  is  increased  by  1  for  each  succeeding  card.    If  a 
sufficiently  long  field  is  not  defined  to  number  all  of  the  caids,  the  number 
wraps  around  to  zero  without  an  error  indication.    The  sequence  number 
overlays  any  data  selected  into  the  sequence  area  of  the  card.  Sequence 
checking  can  also  be  performed  for  card  input  to  assure  ascending  sequence  of 
the  specified  field.    If  a  card  is  out  of  sequence,  a  message  is  written  on 
SYSLST  and  processing  continues. 

g.  Binary  Records.    When  processing  cards  punched  in  column  binary 
format,  the  input  and  output  parameters  (A  and  B  in  the  utility  modifier 
statement)  must  be  specified  as  twice  the  number  of  card  columns  used. 

h.  Printer  Output.    Printer  output  can  be  120,  132,  or  1A4  characters 
per  line  depending  on  the  printer  used  and  the  output  format ♦    Printer  output 
can  be  data  display  or  list  format. 

*  DATA  DISPLAY  -  this  format  provides  a  visual  picture  of  the  data  file. 
Fixed,  variable,  and  undefined  records  can  be  handled,  but  the  field 
select  option  cannot  be  used.    Every  byte  of  data  in  the  file  appe'ars 
in  the  printed  output.    Jf  data  display  is  specified  (TD),  120- 
character  line  is  forced.    Only  portions  of  the  print  line  are  used  for 
data.    This  first  twenty  (1-20)  are  reserved  for  information  describing 
the  file,  such  as  block  size,  block  number,  and  record  number.    Data  is 
normally  displayed  in  hexadecimal  form,  but  may  be  optionally  displayed 
in  alphabetic  form.    A  heading  line  can  be  printed.    A  scale  line  is 
printed  at  the  top  and  bottom  of  each  page.    If  record  length  is 
specified  as  fixed  or  variable  length,  each  logical  record  starts  on  a 
new  line.    Tue  input  block  size  is  printed  only  if  the  input  length  is 
not  equal  to  the  specified  block  size.    The  excess  is  not  printed  when 
the  maximum  length  block  is  v  xeeded.     Single  spacing  is  used  between 
lines  of  print. 

*  DATA  LIST  -  the  data  list  format  provides  a  simple  edited  listing  of 
the  file*    The  entire  print  line  is  available  for  data  output;  outpuL 
is  restricted  to  one  line  per  logical  record.    The  input  record  length 
cannot  exceed  the  size  of  the  print  line.    If  so,  the  field  select  is 
required.    Fields  can  be  selected  tv  unpack,  convert  to  hexadecimal, 
and  format  the  page.    Data  list  mooe  allows  only  character  printing 
unless  a  hexadecimal  field  is  selected  through  a  field  select  entry. 

i.  Utility  Modifier  Statement.    This  statement  is  used  to  describe  the 
input  file  that  is  to  be  processed  and  the  output  file  that  is  desired.  If 
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the  statement  is  present  and  optional  parameters  are  left  out,  default  values 
are  assumed* 

The  general  format  of  the  Utility  Modifier  Statement  is: 

//  Uxx  Tt.Ff  ,A='input),B='(output)»E=(c),  Ix,Ox,Px,Q=(x,y)  ,Rx,Sx 

j.    Field  Select  Statement*    With  ^^his  option,  a  field  is  each  input 
record  can  be  moved        a  different  location  in  the  corresponding  output 
record.    Those  areas  of  the  output  record  that  are  not  filled  with  selected 
fields  are  filled  with  blanks. 

When  field  select  is  used,  only  those  bytes  in  the  input  record  that  are 
selected  will  be  transferred  to  the  output  record.     It  is  therefore  possible 
with  field  select  to  ignore  certain  fields  and  have  them  dropped  from  the 
output  record. 

The  field  select  control  statement  provides  the  information  for  the  file-to- 
file  programs  to  transfer  fields  from  an  input  record  to  the  same  or  a  differ- 
ent relative  location  of  the  output  record.    Each  card  should  begin  with 
//iJFSli»    As  many  field  select  statements  as  necessary  may  be  used  and  must  be 
complete  on  one  statement.     For  example: 

//  FS  1,15,1/16, (P, 5, 3), 16/72, 5, 19 
//  FS  21.2,30 

The  format  and  contents  of  the  field  select  statement  are: 
7/  FS.,i,l,oA,t,l,oA,i,l,o, 

indicates  the  starting  position  of 
input  record • 

indicates  the  length  of  field, 
indicates  the  staring  position  of  output 
record . 

separates  rhe  entries  in  the  parameter, 
separates  selected  fields . 

f   identifies  this  as  a  field  select  control 
^  — statement. 

k.    Heading  Statement.    A  heading  line  can  be  printed  for  programs  with 
printed  output.     Heading  lines  are  ignored  if  first-character  forms  control 
is  specified.    A  maximum  of  two  statements  can  be  used  to  Indicate  the 
heading  line  desired,  but  the  second  statement  need  AOt  be  entered  if  the 
firsf   statement  contains  all  of  the  desired  information.    The  first  statement 
is  entered  //  IlllS  (followed  by  the  information  to  be  printed  in  print 
positions  1-7A.     Tlie  second  heading  statement  is  //  H21i  (followed  by  th- 
remainder  of  the  heading  line).    Heading  statements  must  follow  any  field 
select  statements  used. 
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1.     End  Statement.    This  statement  must  be  the  last  of  the  utility  control 
statements  in  the  program  and  is  punched  //  END. 

3.     FILE  TO  FILE  UTILITY  PROGRAMS; 

a.  Card  to  Disk.    The  card  to  disk  program  transfers  the  contents  of  a 
card  file  from  cards  to  an  area  of  disk.    The  cards  may  be  punched  in  EBCDIC 
or  binary.    The  input  records  must  be  fixed-length  unblocked,  and  each  logical 
record  must  fit  on  one  card.    The  maximum  size  input  record  is  80-bytes  or 
160-bytes  for  binary.    These  files  may  be  copied,  reblocked,  field  selected, 
or  reblocked  and  field  selected. 

b.  Card  to  Printer  and/or  Punch.    Input  records  to  this  program  must  be 
fixed-length  and  unblocked.    Card  input  and  output  can  be  either  EBCDIC  or 
binary  except  for  both,  printing  and  punching  when  it  must  be  EBCDIC.  The 
maximum  record  size  is  80-bytes  for  EBCDIC  and  160-bytes  for  binary. 

(1)  Card  to"  Printer.    The  card  to  printer  program  can  produce  printed 
output  in  two  formats:     Display  and  List.     Sequence  checking  is  performed  on 
the  input. 

(a)  Display.    This  option  transfers  to  contents  to  a  card  file  to 
a  printer  with  each  record  being  placed  on  one  print  line.    The  field  select 
option  cannot  be  performed  with  display.     In  this  format,  the  first  20 
positions  of  the  print  line  are  reserved  for  information  describing  the  file. 
Wien  hexadecimal  printout  is  called  for,  the  entire  card  is  printed  on  two 
lines. 

(b)  List.     The  input  records  for  this  option  are  transferred  to 
the  printer  with  each  record  being  fully  printed.    The  field  select  option  may 
be  used.    The  full  print  line  is  available  for  printing.    When  hexadecimal 
printout  is  called  for,  the  output  record  size  is  bound  by  the  size  of  the 
print  line. 

(2)  Card  to  Punch.    Records  may  be  copied  or  field  selected.  Sequence 
fields  are  generated,  but  input  is  not  checked. 

(3)  Card  to  Printer  and  Punch.    This  program  produces  printed  output 

in  the  list  format  and  b.  reproduced  card  deck.  Sequence  fields  are  generated, 
but  input  is  not  checked^ 

c.  Card  to  Tape.    The  card  tc  tape- program  transfers  the  contents  of  a 
card  file  to  tape.     The  cards  may  be  punched  in  EBCDIC  or  binary.    The  input 
records  must  be  fixed-length  unblocked  and  each  logical  record  must  fit  on 
one  card.    The  maximum  record  size  is  80-bytes  for  EBCDIC  or  160-bytes  for 
binary* 

d.  Disk  to  Card.    The  disk  to  card  program  transfers  the  contents  of  a 
disk  file  to  a  card  file.    The  output  file  may  bs  punched  in  either  EBCDIC  or 
linary.     Each  logical  output  record  must  fit  on  one  card.    Ir.put  records  to 
this  program  must  be  fixed-length  and  may  be  blocked.    Files  in  this  program 
may  be  copied,  reblocked,  field  selected,  or  reblc>cked  and  field  selected. 
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Ail  blocked  input  records  must  be  reblocked. 


e.  Disk  to  Disk.    The  disk  to  disk  program  transfers  a  file  between  disk 
units  or  between  areas  of  the  same  unit.     Using  the  same  device  for  inpct  and 
output  can  cause  a  reduction  in  performance.     Files  can  be  copied,  reblocked, 
field  selected,  or  reblocked  and  field  selected.     If  the  field  select  or 
reblock  options  are  used,  the  input  records  must  be  fixed  or  variable  length. 

f .  Disk  to  Printer.    The  disk  to  printer  program  can  display  a  disk  file 
in  either  data  display  or  data  list  format.    Data  display  provides  a  visual 
picture  of  the  data  where  every  byte  appears  in  the  printed  output;  this 
format  can  handle  fixed,  variable,  and  undefined  records.    Data  list  provides 
a  simple  edited  list  of  the  file;  input  records  laust  be  fixed  or  variable 
length  and  (for  the  list  function  only)  must  not  exceed  the  size  of  the  print 
line.    All  O'  tion  is  available  to  this  program  to  specify  the  number  of  logical 
records  in  a  file  to  be  bypassed  before  printing  begins. 

g.  Disk  to  Tape.    The  disk  to  tape  program  transfers  a  file  from  one  or 
more  disk  units  to  one  or  more  tape  reels.     These  files  may  be  copied, 
reblocked,  field  selected,  or  reblocked  and  field  selected^     If  the  reblock 
or  field  select  options  are  used,  the  input  records  must  be  fixed  or  variable 
length. 

h.  Tape  to  Card^    This  program  transfers  a  tape  file  to  a  card  f-^vc;. 
The  output  file  may  be  punched  in  either  EBCDIC  '^r  binary.     Input  records 
must  be  fixed  length.     The  files  may  be  copied,  reblocked,  field  selected,  or 
reblocked  and  field  selected*     Blocked  input  records  must  be  reblocked. 

i.  Tape  to  Disk.    The  tape  to  disk  program  transfers  a  file  froin  one  or 
more  tape  reels  to  a  maximum  of         disk  units  where  is  the  number  of 
disk  units  assigned.    These  files  may  be  copied,  field  selected,  reblocked, 
or  reblocked  and  field  selected.     If  the  field  select  or  reblock  options  are 
used,  the  input  records  must  be  fixed  or  variable  length. 

j.     Tape  to  Printer.    The  tape  to  printer  program  can  display  a  tape  file 
in  either  data  display  or  data  list  format.    .Data  display  provides  a  byte- 
for-byte  representation  of  the  data  file  where  every  byte  appears  in  the 
listing;  this  format  can  handle  fixed,  variable  and  undefined  records.  Data 
list  provides  a  simple  edited  representation  of  the  file;  input  records  must 
be  fixed  or  variable  length  and  (for  the  data  list  function  only)  must  not 
exceed  the  size  of  the  print  line.    The  field  select  option  may  be  used.  An 
option  is  available  to  this  program  to  specify  the  number  of  logical  records 
in  a  file  to  be  bypassed  before  printing  begins. 

k.     Tape  to  Tape.    The  tape  to  tape  program  transfers  a  file  from  one  or 
more  reels  to  tape  to  one  or  more  other  reels.     These  files  may  be  copied, 
field  selected,  reblocked,  or  reblocked  and  field  selected.     Input  records 
mi'st  be  fixed  or  variable  length  if  the  reblock  or  field  select  options  are 
used* 
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4.    PHASE  NAMES  FOR  UTILITY  PROGRAMS •    The  phase  names  listed  below  are  for 
the  utility  programs  described  above. 


pT?nr:R  AM 

ParH  to 

CDPP 

Pprd  to 

nrinteT  and /or  Dunch 

r^rH  tn 

tape 

DKCD 

Disk  to 

card 

DKDK 

Disk  to 

disk 

DKPR 

Disk  to 

printer 

DKTP 

Disk  to 

tape 

TPCD 

Tape  to 

card 

TPDK 

Tape  to 

disk 

TPPR 

Tape  to 

printer 

TFTP 

Tape  to 

tape 

5.    UTILITY  MODIFIER  STATE^IENT  PARAMETER.     The  contents  of  the  utility 
mofifier  statement  parameter  is  described  below* 

FUNCTION 

TB  -  Both  print  and  punch 

TBF  -  Both  print  and  punch  with  field  select 

TC  -  Copy 

TD  -  Display 

TF  -  Field  Select 

TL  -  List 

TLF  -  List  and  field  select 
TR  -  Reblock 

TRF  -  Reblock  and  field  select 
FORMAT 

FF  -  Fixed  length 
FV  -  Variable  length 
FU  -  Undefined  length 

IMPUT  DESCRIPTION 

A=(n,m)    where  *n*  is  record  length  and  *m*  is  block  length 
OUTPUT  DESCRIPTION 

B=(n,m)    where  *n*  is  record  length  and  'm'  is  block  length 
B»(p)        where  'p'  is  normally  132  for  a  1403N1  prinlier 

INPUT  MODE 

EBCDIC 
Binary 

Do  not  remind  before  or  after  aata  transfer  (tape  only) 
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INPUT  MODE  -  continued 


IR  -  Rewind  before  and  after  data  transfer  (tape  only) 
lU  -  Rewind  before  and  after  and  unload  (tape  only) 

OUTPUT  MODE 

01  -  EBCDIC  (punch  only) 

02  Binary  (punch  only) 

ON  -  Do  not  write  disk  check  (disk  only)  or  do  not  rewind  before  or 

after  data  transfer  (tape  only) 
OC  -  Character  (printer  only) 

OR  -  Rewind  before  and  after  data  transfer  (tape  only) 

OU  -  Rewind  before  and  rewind  and  unload  after  data  transfer  (tape  only) 
OX  ^  Hexadecimal  (printer  only) 
OY  -  Write  disk  check  (disk  only) 

SEQUENCE  NUMBERING  ' 

Q=(x,y)    where  'x*  is  first  position  of  a  field  for  sequence  numbering 
(1  or  2  digits)  and  'y*  is  length  of  field  not  to  exceed  10 
positions 

PAGE  NUMBERING 

PN  -  Do  not  nainber  pages 
FY  -  Number  pages 

FIRST  RECORD 

Rx      where  'x'   is  the  first  record  to  be  processed,  normally  1 
SPACING 


51  -  Single  space  or  stacker  select  pocket  1 

52  -  Double  space  or  stacker  select  pocket  2 

53  -  Triple  space  or  first  character  -stacker  control 
SA  -  These 

SB  -      codes  are 

SC  -  not  normally 

SC  -  used 

6^  COt^MONLY  USED  UTILITY  MODIFIER  STATEMENT  PARAMETERS.  The  list  shown 
below  are  the  most  frequently  used  utility  modifier  parameters. 

//  EXEC  CDDK      (card  to  disk) 

//  UCD  TR,FF,A=(80,80,B=(80,1680),E=(231A),Rl,OY 

//  EXEC  CDPP      (card  to  carJ> 

//  UCP  TC,FF,A-(8G.8O),B=(^iO,8O),Il,01,Rl,Sl 
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COMMONLY  USED  UTILITY  MODIFIER  STATDIENT  PARAMETERS  -  continued 

//  EXEC  CDPP      (card  to  print  double  space) 
//  UCP  TL»FF,A=(80,80).B=(132),I1,0C,PY,S2,R1 

//  EXEC  CDPP      (card  to  card  and  print  single  space) 
//  UCP  TB,FF,A=(80,80) ,B=(80,80),I1,0C,PY,R1,S1 

//  EXEC  CDTP      (card  to  tape) 

//  UCT  TR,FF,A=(80,80) ,B=(80,1600),I1,0R,R1 

//  EXEC  DKCD      (disk  to  card) 

//  UDC  TR,FF,A=(80,1680),B=(80,80),R1,S1,E-(2314) 

//  EXEC  DKDK      (disk  to  disk) 

//  UDD  TR,FF,A=(80, 1680), B-(80, 1680), E=(2314, 2314), OY.Rl 

//  EXEC  DKPR      (disk  to  print  double  space) 

//  UDP  TL,FF,A=(80,1680),B=(132),E=(2314),PY,OC,S2,Rl 

//  EXEC  DKTP      (disk  to  tape) 

//  UDT  TR,FF,A=(80, 1680), B=(C0, 1600), E=(2314),R1, OR 
//  EXEC  TPCD      (tape  to  card) 

//  UTC  TR,FF,A=(80,1600),B=(80,80),IU,01,R1,S1 
//  EXEC  TPDK      (tape  to  disk) 

//  UTD  TR,FF,A=(80, 1600), B=(80, 1680), E=(2314),IR,0Y,R1 

//  EXEC  TPPR      (tape  to  print  double  space) 
//  UTP  TL,FF,A=(80,1600),B=(132),IU,PY,R1,S2 

//  EXEC  TPTP      (tape  to  tape  with  field  select) 
//  UTT  TRF,FF,A=(80,80),B=(81,81),IU,0U,R1 

7.    For  additional  information  on  the  utility  programs,  refer  to  IBM  SRL 
GC  24-3465,  DOS  and  TOS  Utility  Programs. 
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THE  OPERATING  SYSTEM  (OS) 


CONTROL  PROGRAM 


TASK  MANAGEMENT 


DATA  MANAGEMENT 


o 


MASTER  SCHEDULER 


JOB  SCHEDULER 


I/O  SUPERVISOR 

ACCESS 
METHODS 

n 
c 

Z 


o 

CO 


READER/ 

INITIATOR/ 

OUTPUT 

INTERPRETER 

TERMINATOR 

WRITER 

Job  control  language  foe  COBOL  PE  2  (OS)] 


//C23  PROC  DUMP =' DUMMY' 

//*      THIS  PE  READS  NAMES  AND  LISTS  THEM 

//*      CREATED  ON  30  NOV  76  BY  SOFDJARE  DIV,  CSD,  USAIA 

//COB  EXEC  PGM=IKI"CBL00 

//  PAEM= ' LOAD , SUPMAP , SIZE=8AK, BUF=8K,N0DECK,  CLIST ' 

//STEPLIB      DD  DSN=USAIA.  SOFTWARE. LINKHB,DISP=SHR 
//SYSPRINT    DD  SYSOUT=A 
//SYSPUNCH    DD  DUMMY 

//SYSLIB  DD  DSN=USAIA. SOFTWARE. SOURCE, DISP=SHR 
DD  UNIT=SYSDA,  SPACE= (460 , (700 , 100)) 
DD  UNIT"SYSDA»  SPACE= (460 , (700 , 100) ) 
DD  UNIT=SYSDA, SPACE= (460 , (700 , 100) ) 
DD  UNIT=SYSDA,SPACE= (460, (700,100)) 
DD  DSN=&LOA?SET,DISP=(MOD,PASS) ,UNIT=SYSDA, 
SPACE=(80(500,100)) 

  COBOL  source  deck  would  be  placed  here   

EXEC  PGM=IEWL,PAEM='LI£:T,XREF,MAP,LET'  ,C0ND=(8,LT,C0B) 
//STEPLIB      DD  DSN=USAIA. SOFTWARE. LINKLIB,DISP=SHR 
//SYSLIN        DD  DSN=&LOADSET,DISP=(OLD, DELETE) 
//SYSLMOD      DD  DSN=&GOSET(COB) ,DISP=(NEW,PASS) ,UNIT=SYSDA, 
SPA'^E=(1024,  (50,20,1)) 
DD  DSN=SYS1.C0RLIB,DISP=SUR 

DD  'INIT-  (SYSDA,SEP=(SYSLIN,SYSLM0D))  ,oPACE=(1024,  (Si),20)) 


//SYSUTl 
//SYSUT2 
//SYSUT3 
//SYSUT4 
//SYSLIN 
II 

//LKED 


/  / 


//SYSLIB 
//SYSUTl 
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//SYSPRINT  DD  SYSaL)T=A 

//GO  EXEC  PGM=*.LKED.SYSLM0D,C0ND=((8,LT,C0B) ,(4,LT,LKED)) 

//SYSOUT  DD  SYSOUT=A 

//SYS005  DD  SYSOUT=A 

//SYS006  DD  DSN=USAI A. SOFTWARE. DATASET.C09,DISP=SER 
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OS  JCL  to  execute  a  COBOL  PE 
//name  JOB  (procnaine,room) , 'programername' ,MSGL£VEL=(1 ,1 ) 

//  EXEC  procname 

//COB.SYSIN     DD  * 


58 


COBOL 

source 

deck 


/* 
// 


name  This  is  a  name  assigned  to  the  job.  This  parameter  is 

taken  from  the  1st  eight  cnaracters  of  your  name  on  the 
'buff  colored'  control  card  you  now  put  on  your  deck. 

procname  Use  the  code  from  the  "buff  colored  card    Cll  ,C09  ,C23 ,  •  •  .  • 

room  Enter  your  classroom  numtier 

progi-amername  'John  Q.  Smith 

procname  Same  as  ahove. 
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PERFORM 

OPTION 

ROUTINE 


ro  BE 
CATALOGED^ 


.YES 


NO 


PHASE  CARD 


/  SOURCE  DECh^ 


//  EXEC  FCOBO 


PERFORM 
LINK  EDIT 
ROUTINE 


PERFORM 
EXECUTE 
ROUTINE 


C 


STOP 
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r  OPTION  \ 
\^  ROUTINE  ) 


//  OPTION  ... 


LIST 
LISTX 


NO 


C 


EXIT 


ERIC 


A-2 


CSD.SFW.OS 


INACTION  ... 


A-4 

672 


CSD.SFW.OS 


)  /  o 


S81 

1^-01-01-05  (D) 

SYS/360  OPERATING  CONCEPTS 

OBJECTIVES: 

!•    To  describe  in  detail  the  three  mainframe  components  of  the  IBM 
SYS/360  coTttputer,  Main  Memory,  the  Central  Processing  Unit,  and  Data 
Channels. 

2.    To  describe  the  five  machine  language  formats. 
3*    To  describe  interrupts  and  interrupt  processing* 
4.     To  define  PSW,  IOCS,  LIOCS,  and  PIOCS. 

I.    MAIN  MEMORY,-  Where  data  and  instructions  must  ultimately  be  to  be 
operated  upon  by  the  system. 

A.  Byte  - 

B.  Addressing  - 

C.  Concept  of  '"Word  Units" 

1.  Fullword  - 

2.  Halfword  - 

3.  Doubleword  - 

^-  Boundary  Alignment 


II •  CENTRAL  PROCESSING  UNIT  (CPU). 
A.    Instruction  Cycle. 

1.  I-Time  - 

2 .  D-Time  - 

3.  The  Difference  Between  Instructions  and  Data  - 
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B.  Access  Width  - 

C.  Access  Time  - 

D.  Control  Element  -  Fetches  and  decode  machine  instruci:ious  and 
sets  up  internal  logic  paths  for  the  actual  execution  of  the 
instruction. 

E.  Arithmetic  and  Logical  Unit  (ALU)  -  Responsible  for  actually 
executing  the  instructions  as  decoded  by  the  Control  Element. 

1.  General  Purpose  Registers  (GPR) . 

a.  Size  and  Number  - 

b.  Data  Format  - 

c.  Uses 
1) 
2) 

2.  Floating  Point  Registers  (FP  REG), 
a*     Size  and  Number  - 

b.  Data  Format  - 

c.  Use 

3.  Operations. 

a.  Arithmetic  - 

b.  Logical  - 
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III.  DATA  CHANNELS  -  Special  purpose  minicomputers  whose  only  function 
is  to  monitor  I/O  operations. 

A.  Modes  of  Operation. 

1.  Burst  - 

2.  Multiplex  - 

B.  Types  of  Channels. 

1.  Selector  - 

2.  Multiplexor  - 

C.  Channel  Command  Word  (CCW) . 

D.  Characroristics  of  Channels. 
1. 

2. 
3. 
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IV,  THE  MODULAR  CONCEPT  OF  THE  SYS/ 360. 

MODULES  PRODUCED  BY  IBM 
ALTERNATIVE  REQUIRED  OPTIONAL 


10  0 


B  0  MiM 


□r*n 

LVD 


YOUR  SYSTEM 


mi 


V.     MACHINE  LANGUAGE  INSTRUCTION  FORMATS. 

A.     The  Two  Theories  of  Machine  Language  Instruction  Formats. 

1.  Fixed  Length 
a. 

b. 
c. 

2.  Variable  Length 
a. 
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Pfirta  of  a  Machine  Language  Instruction, 

!•  Operation  Code  (OPCODE)  -  The  first  byte  of  the  instruction 
is  always  the  OPCODE.  It  defines  the  arithmetic  or  logical 
or  I/O  operation  that  is  to  be  done. 

2 •    Operands . 

a*    Registers  - 

b.  Storage  - 

c.  Data  - 

Formats* 

1.  Register  to  Register  (RR) . 

a.  Length  - 

b.  Operands  - 
c*    Diagram  - 

c.  Type  Instructions  - 

2.  Register  to  Storage. (R5) . 

a.  Length  - 

b .  Operands  - 
G.     Diagram  - 

d.  Type  Instructions  - 

3.  Register  to  Indexed  Storage  (RX)  . 
a.    Length  - 

b •    Operands . - 


S9a 

c.  Diagram 

Type  instructions  - 

4.  Storage  and  Immediate  (SI) . 
a*    Length  - 

b •     Operands  - 
c*    Diagram  - 

d.  Type  Instructions  - 

5.  Storage  to    Storage  (SS)- 

a.  Length  - 

b.  Operands  - 

c.  Diagrams  - 


d.    Type  Instructions  - 

VI.  Interrupts  -  The  mechanism  that  allows  the  machine  to  change  from 
the  problem  program  stat  to  the  »uperviBor  state. 


A.    Typo9  of  Interrupt* ♦ 

2.  . 

3. 

4- 
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B.    Priority  of  Interrupts  for  Simultaneous  Occurances. 

1.  Stacking  Priority, 
a. 

b. 
c. 

2.  Execur  1;.T.  Priority, 
a. 

b. 
c. 
d. 

3.  Handling  of  Simultaneous  Interrupts 


C.     Program  Status  Word  (PSW)  . 
1* 


2.    Current  PSW  - 


3.    New  PSW  - 


4.     Old  PSW  - 


Diagram  - 
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D,    Interrupt  Processing. 
1. 


2. 


3. 


4. 


5 

Sy8/360  Input /Output 

A.    IOCS*    IOCS  stands  for  Input  Output  jControl  System,    In  the 
supervisor  there  Is  a  small  block  of  coding  which  serves  to 
Initiate  I/O  operations  In  response  to  program  requests.  It 
also  notifies  your  program  that  an  I/O  operation  Is  complete* 


B,    PIOCS .    Physical  IOCS  Is  the  most  basic  method  of  accessing 
the  IOCS  section  of  the  supervisor.    In  PIOCS  the  programer 
has  direct  control  over  I/O  operations  but  Is  responsible  for 
all  error  checking  and  program  notification  of  completed  I/O* 


C,  LluCS.  Logical  IOCS  la  the  system  of  accessing  I/O  devices 
most  often  used.  LIOCS  provides  for  all  error  handling  and 
program  notification  of  completed  I/O.  In  order  to  do  this 
there  are  3  parts  to  the  LIOCS  system: 

1.  A  table  used  to  define  the  appearance  of  the  file  being 
used.    This  table  Is  called  a  Define  The  File  table  or  DTP. 

2.  A  block  of  executable  coding  to  handle  error  checking,  I/O 
Initiation,  etc.,  called  a  module. 

3.  An  I/O  Imperative  specifying  reading  or  writing  on  the  flle^ 
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Keywords:    TABULAR-MODULAR  STRUCTURE.  I/O  AREA,  DEVICE  ADDRESS.  MODULE 
NAME.  PROGRAMER  OPTIONS 

In  order  for  the  360  to  perform  an  I/O  operation  three  things  must  be  done: 

U     Specific  information  relating  to  the  file  must  be  made  available  in  a 
table  called  a  DTF  table. 

2.  Coding  (a  piece  of  program)  must  be  available  to  reference  the  table 
and  pass  the  information  to  the  channel.    This  block  of  coding  is  called 
an  I/O  module. 

4 

3.  A  specific  command  must  be  given  to  initiate  the  process. 


The  following  information  is  needed  in  the  table: 

1.  A  Device  Address  consisting  of  a  logical  unit  address  must  be  provided. 
This  address  is  then  used  to  locate  the  physical  address  of  the  unit. 

2.  The  location  of  the  data  must  be  specified  explicitly.    This  area 
is  called  an  I/O  Area  and  is  first  defined  by  the  programer.  This 
area  is  used  to  hold  data  for  output  or  if  it  is  an  input  area  to 
receive  data.    Usually  there  is  at  least  one  I/O  area  per  file. 

3.  Any  special  device  dependent  options  are  also  specified.    These  are  . 
called  programer  options.    An  example  would  be  how  a  tape  is  blocked  . 
or  whether  a  tape  is  to  be  rewound  at  the  end  of  the  job. 

4.  The  assembler  takes  into  account  all  of  the  above  information  and 
determines  which  relocatable  module  will  do  the  job. 


I/O  Module 

The  I/O  module  is  resident  in  the  relocatable  library.    There  are  I/O 
modules  for  each  set  of  options  for  each  device. 

The  linkage  editor  is  given  the  name  of  the  appropriate  module  in  the 
external  address  portion  of  the  symbol  table.    It  then  pulls  it  off  the  relo- 
catable library  and  links  it  in  to  your  program. 

The  I/O  module  provides  an  interface  bet-'een  your  program  and  the  IOCS 
routines  in  the  supervisor.    It  also  provides  for  error  checking  and  pro- 
gram notification  of  completed  I/O.    It  also  provides  the  coding  necessary 
for  implementation  of  programer  options. 
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Imperative  Command 

In  order  to  access  the  table  and  module  for  I/O  the  programer  need  only 
use  the  GET  (filename)  or  PUT  (filename)  commands.    These  commands  provide 
branches  to  the  appropriate  I/O  routines. 

CPU 


Supervisor 


Data 


IOCS 

Routines 


Channel 


Program 


DTF  Table 


Device  Address 


I/O  Area  Address 


I/O  Area 


LIOCS 

Relocatable 
Module 


1. 

Z. 
3. 

4. 
5. 
6. 
7. 

8. 
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GET  Instruction  branches  to  module. 

Module  obtains  information  it  needs  from  DTF  table. 

Module  passes  information  to  IOCS  routines  in  supervisor  and  requests 

I/O  initiation. 

IOCS  routine  passes  information  to  channel  and  starts  I/O. 
Channel  places  data  in  I/O  area  in  core. 
Channel  notifies  IOCS  of  I/O  completion. 

IOCS  passes  completion  information  to  module.  The  module  then  analyze 
completion  code  to  determine  what  error  conditions,  if  any,  are  present 
If  no  errors,  control  is  passed  back  to  program. 
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INTRODUCTION 


OBJECTIVE:    Given  a  situation  at  a  field  DPA  running  standard  Army  systems, 
be  able  to  report  an  incident  or  a  recommended  system  change  on  the  proper 
forms  and  specifying  the  required  information. 

CRITERION  TEST:    The  test  for  this  class  is  different  from  the  others  in 
the  course  in  several  ways.    First  of  all,  the  test  is  on  a  go/no  go  basis, 
that  is,  you  either  get  all  the  points  or  you  get  none  of  them.  Secondly, 
the  test  is  designed  to  have  you  demonstrate  your  ability  to  perform  the 
two  primary  CSC  interface  tasks.    You  will  be  given  a  copy  of  the  test  at 
the  beginning  (not  the  end)  of  the  class  time  allotted  to  this  block. 
Finally,  the  test  will  be  graded  with  you  present  and,  if  it  is  not 
satisfactory,  you  will  be  told  what  is  incorrect  and  asked  to  do  the  test 
over.    This  is  because  we  believe  that  a  test  should  be  a  learning 
tool  as  v;ell  as  a  demonstration  of  your  performance. 

METHOD  OF  LEARNING:    This  is  a  self-paced  module  and  as  such,  you  determine 
how  fast  you  want  to  learn.    If  you  have  any  questions  on  this  topic,  you 
may  talk  with  other  students  or  with  the  instructor.    When  you  have 
finished  the  body  of  this  text,  complete  the  criterion  test  and  take  it  to 
the  instructor  for  one-to-one  feedback.    The  only  restrictions  are  the  test 
must  be  finished  by  the  end  of  the  class  time  allotted  and  you  may  not  talk 
with  other  students  when  taking  the  exam. 
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PURPOSE 

This  text  was  designed  to  acquaint  you  with  how  the  Army  maintains  it's 
standard  software  systems  and  the  part  that  you,  the  programmer,  play  in 
the  overall  scheme.    Speaking  in  more  specific  terms,  this  class  will  show 
you  how  to  report  problems  wUh  systems  that  were  not  written  by  you  but 
are  running  at  your  DPA.    By  the  way.  if  you  do  not  know  what  that 
abbreviation  means,  there  is  a  glossary  in  the  back  of  this  text  that  was 
designed  for  people  who  are  not  familiar  with  the  Army's  unique  ADP 
terminology.    Chances  are  that  if  you  find  other  unfamiliar  terms  during 
this  class  you  will  find  them  defined  in  the  glossary  also. 

WHY  SOFTWARE  STANDARDIZATION? 

Although  the  Army  has  many  different  units  scattered  throughout  the  world, 
tneir  data  processing  requirements  are  really  quite  similar.    They  all 
have,  for  instance,  the  following  needs: 

*  Keep  personnel  data  current  and  available. 

*  Requisition  supplies. 

*  Keep  soldier's  pay  data  current. 

*  Maintain  accountability  of  government  property. 

If  each  Army  DPA  had  to  develop  software  systems  to  accomplish  these  and 
other  tasks,  there  would  have  to  dozens  of  progranmers  at  the  DPA  and  lots 
of  spare  run  time  to  compile  and  test  programs.    Additionally,  people 
moving  from  Post  to  Post  (a  fact  of  Army  life)  would  have  to  spend  many 
hours  being  retrained  on  new  systems  that  did  basically  the  same  tasks  as" 
the  systems  at  their  last  Post.    With  a  lack  of  standardization  among  ADP 
systems,  attempting  to  send  data  between  these  systems  would  be  a  nightmare. 

CSC  COMES  INTO  THE  PICTURE 

1°  ^^^7^rlr^^^^^^  problems,  the  Army  designated  the  Computer  Systems 
Command  (CSC)  as  the  central  design  agency  for  all  ADP  systems  that  are  run 
at  more  than  one  command.    Under  direction  of  the  functional  proponent 
ill  develops  standard  software  systems  and  sends 

them  to  all  DPA  who  have  a  requirement  for  them.    Not  all  DPA  run  the  same 
standard  systems,  (for  instance:  a  DPA  at  an  Infantry  Division  would  not 
have  the  same  ADP  requirements  as  the  DPA  that  supports  Fort  Harrison). 
When  CSC  sends  a  system  out  it  comes  in  a  package  containing  operator's 
documentation.  JCL.  executable  phases  and  instructions  on  how  to  load  the 
phases  on  the  libraries.    Notice  that  there  are  no  source  programs  or 
prograniner  documentation  in  the  package.    This  is  to  preclude  individual 
commands  from  changing  the  programs  and  therefore  not  having  the  same 
system  as  other  commands.    Some  of  the  systems  developed  by  CSC  that  you 
are  likely  to  encounter  are:  •/  ^  j 
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*  SIDPERS  -  Maintains  complete  personnel  data 
and  prints  personnel  reports.    Used  at  all 
Divisions  and  Posts. 

*  SAILS  -  Standard  supply  system  at  Posts,  Corp 
and  supply  inventory  and  management  centers. 

*  STANFINS  -  The  system  that  keeps  track  of 
Army  spending  at  each  Post. 

*  DL06S  -  Used  at  all  Divisions  for  requesting 
supplies  and  maintaining  property  records. 

These  are  just  some  of  the  systems  that  CSC  is  responsible  for.  They 
actually  have  many  systems  varying: 

*  in  complexity  from  under  10  programs 
to  over  100. 


*  in  Hardware  from  a  UNI  VAC  1005  to  an 
IBM  370. 

*  in  scope  frorn  commissary  management  to 
Army  Force  Accounting. 

WHAT  DO  I  DO? 

At  this  point  you  may  be  asking  yourself  what  could  you  possibly  have  todo 

with  all  this  since  all  CSC  systems  have  already  been  developed  and  made 

operational.  The  answer  to  this  question  is  why  you  are  having  this  class! 

When  you  go  to  a  permanent  assignment  at  a  DPA  you  will  probably  be 
responsible  for  assuring  the  correct  operation  of  an  AMIS  (remember  the 
glossary!).    Your  duties  in  this  area  will  be  to: 

*  Load  system  changes  to  your  libraries  to 
keep  the  system  current. 

*  Troubleshoot  problems  occurring  during  the 
execution  of  an  AMIS,  and  report  problems 
that  cannot  be  overcome  to  the  Assigned 
Responsible  Agency  (ARA). 

*  Forward  recommended  changes  of  an  AMIS  to 
the  ARA. 
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We  win  cover  each  of  these  tasks  separately  in  the  following  paragraphs. 
KEEPING  THE  SYSTEM  CURRENT 

Just  as  the  Army  requirements  and  standards  change  from  time  to  time  so  do 
the  AMIS  that  support  the  Army.    CSC  produces  system  change  packages  (SCP) 
on  a  regular  basis,  usually  every  3-6  months,  that  will  keep  the  system 
current  with  Army  policy.    An  SCP  comes  with  all  necessary  documentation 
and  load  instructions.    All  that  is  required  of  the  programmer  (you)  is  to 
forward  the  package  to  the  operators  with  any  local  run  instructions  and 
review  the  output  from  the  SCP  load  to  make  sure  that  the  system  was  loaded 
correctly.    Following  the  load,  you  must  notify  CSC  of  the  date  and  time 
of  the  load.    You  should  be  sure  to  load  the  SCP  as  soon  as  possible  so 
that  your  system  is  the  current  one. 

Occasionally,  there  will  be  emergency  requirements  to  change  a  system, 
usually  due  to  a  program  failure.    When  this  occurs,  CSC  sends  an 
Emergency /Urgent  Change  Package  (EUCP)  to  all  affected  DPA.    EUCP  are 
normally  not  mailed  but  are  sent  through  the  Automatic  Digital  Network 
(AUTODIN)  and  will  arrive  within  2  days  of  dispatch.    These  change  packages 
must  be  loaded  immediately  upon  receipt. 

WHAT  IF  THE  SYSTEM  DOESN'T  WORK  RIGHT 

If  an  AMIS  does  not  work  right,  either  from  an  ADP  standpoint  or  a 
functional  standpoint,  this  means  that  an  incident  has  occurred.  Analyze 
the  incident  to  make  sure  it  is  not  caused  by  a  local  problem.    Once  you 
determine  that  the  problem  is  not  local,  report  it  to  CSC  as  soon  as 
possible  by  phoning  the  Customer  Assistance  Office  (CAO).    The  information 
that  the  CAO  needs  can  be  taken  directly  from  the  Incident  Report  form, 
(USACSC  Form  53)  that  you  must  fill  out  for  your  records.    Let's  take  a  look 
at  this  form  in  detail,  line  by  line.    Refer  to  the  sample  form  while  you 
read  the  items  below. 

I.    a.    Enter  your  post  name. 

b.    This  is  a  number  consisting  of  three  fields: 

-  The  AMIS  code 

-  Your  DPA  code 

-  A  three  position  sequence  number 

a  sample  number  would  be:  C02-R111-027 
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.    ^  ^^""^         designates  your  DPA  type  and  will 

be  furnished  you  at  your  DPA. 

e  &  f .    Your  name  and  phone, 
g.    The  hours  (in  local  time)  when  you  work, 
to  CSC)  ^"  ^^^^  (unless  someone  else  phones  the  incident 

2.    a.    Leave  blank, 
b.    AMIS  Name, 
c  &  d.  Self-evident. 

e.  The  person  you  talked  to  at  CSC. 

f.  CAO  phone  number. 

pnfpr'thf'i-J!/^!-"'"'''"'^^"*  ""^"^^"^  ^°  blow-up  indicate  that  and 

enter  the  termination  code  printed  on  the  output  listing. 

b.  Self-evident. 

and        2ll  il        "i'^'^^.Z  ^UCP  that  was  loaded  most  recently 

and  the  date  it  was  loaded  (installed  .    If  the  problem  involves  a  prooram 
enter  the  program  name  in  block  A  or  if  the  problem  is  in  the  "steS  doc'-' 
mentation  enter  the  documentation  name  in  block  B. 

5.  a.    Enter  the  job  name  here. 

b.  Explain  in  detail  exactly  what  happened.    This  is  very 
rS^rLa'p^oble:!  ''''  description  that  CSC  win  startle 

c.  Explain  what  you  did,  if  anything,  to  get 
around  the  problem.  ^       a.  y 

d.  What  effect  does  this  incident  have  on  you? 

e.  Leave  blank. 

6.  Most  often  this  will  be  applications  software. 

7.  Which  of  these  items  are  available  for  CSC  to  refer  to.  if  needed 
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Fof  u««  o<  thU  form.  ,wi  US/.CSC  REG  18-211 ;  the  pfoponant  aqancy  it  Quality  Amirance  Directorate.  (Tatt  &  Conf  Mgt  Oiw) 


1A.  INSTALLATION  Fort  Harrison  -  USAIA 
B.  ORIGINATOR  NUMBER  PO^'Rl  11-006 


C.  ORIGINATOR  LEVEL:  [Tj 

D.  OPERATING  ENVIRONMENT:  ["ofTI 

E.  CONTACT      SP4  Smith  


F.  CONTACT'S  PHONE  699-2323 


Yl  Jan  79 


2A.  CAO  ID  .    

B.  FUNCTIONAL  AMIS  SIDPERS 

C.  DATE  RECEIVED   

D.  TIME  RECEIVED  ^ 

E.  RECEIVED  BY   

F.  PHONE  354-1616 


1600 


SFC  Jones 


Q.  CONTACT  WILL  BE  AVAILABLE      0730-16  30 


H.  PERSON  PHONING  IN  INCIDENT     ^^P^  Smith 


PHONE 


3.  OPERATING  STATUS  AT  TIME  OF  INCIDENT 

A.  WAS  THERE  A  CYCLE  MALT  OR  ABNORMAL 
TERMINATION  IN  THE  PRODUCTION  RUN: 

YES       ABEND  CODE   WRONG  LENGTH 
n  HO  RECORD 

B.  OATE/TIME  INCIDENT  DETECTED: 

1200  Jan  79,  1500 


4.  BASELINE  P02-21-O5      INSTL'D   5  Jan  79 

A.  PROB  PGM  ID  P3AAAC  VERS   

OR 

B.  PROB  DOC  ID 


CHG  LEVEL 


PARA(S) 


PAGES 


5.  DESCRIPTION  OF  INCIDENT. 
A.  ID  OF  RUN  IN  PROGRESS  _ 


DAILY  CYCLE 


|U.  NARRATIVE  DESCRIPTION  OF  INCIDENT  AND  RELATED  EVENTS     Job  abortL'd  duo  to 


wronK  teny^th  rocord  on  Input  tape  A3.\AAC.  Listed  tape  and  saw  that  all 
records  were  one  byte  too  long. 


C.  ACTIOIM  TAKEN  BY  USER  AND  RESULTS 

Used  TPTP  utility  to  strip  the  extra  byte  and  continued. 


O.  IMPACT  OW  USER  UNTIL  RESOLVED 

Kv/ery  lIihl-  the  cycle  Ls  run,  the  Cape  must  be  rvlormatted , 


t.  CAO/ASD  REDEFINITION  OF  PROBLEM  IF  DIFFERENT  THAN  &B. 


6. 


TYPE  OF  DIFFICULTY 


I  APPLICATION  SOFTWARE 


EXECUTIVE  SOFTWARE 
I  INPUT  DATA 


DOCUMENTATION 


7. 

SUPPORTING  DOCUMEf^ATlON  FOR  RESEARCH  BY  USER 


AVAIL 


AVAIL 


X 


IHAROWARE 


OTHER 


CORE  DUMP 


CONSOLE  COPY 


JOB  CONTROLLIST 


SYSLST  OUTPUT 


INPUT  FILE  TAPE 


DISK  MODULE 


OUTPUT  FILE  TAPE 


DATA  FILE  TAPE 


RPTOUTPUTTAPE 


DOCUMENTATION 


OTHER 


USACSC'*"*^  53 


Ht)i>ta<.rtft  «Mli(ioitol  1  MdV  /*.> 
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I  KNOW  A  BETTER  WAY 


After  you  have  had  an  opportunity  to  observe  an  AMIS  ir.  it's  normal 
operation,  you  may  think  of  ways  to  improve  it.    Additionally,  the  people 
who  use  the  output,  the  functional  user,  may  like  to  see  the  output  changed 
or  possibly  new  reports  produced.    CSC  encourages  these  suggestions  and  the 
Army  has  provided  a  means  of  submitting  them:  the  System  Change  Request 
(SCR).    There  are  two  types  of  change  requests,  technical,  involving 
a  suggestion  for  technical  ADP  reasons  and  functional,  involving  a  sug- 
gestion to  change  the  input  or  output  from  the  customer's  viewpoint.  You 
will  be  responsible  for  filling  out  technical  SCR  and  you  should  review 
functional  SCR  after  they  have  been  prepared  by  the  user.    You  should  keep 
a  log  of  all  SCR  you  have  submitted.    CSC  distributes  a  monthly  SCR  status 
report  which  you  can  compare  to  your  SCR  log  to  make  sure  that  your 
information  agrees  with  CSC's  information. 

Refer  to  the  sample  SCR  and  we  will  discuss  the  blocks  you  will  have  to 
fill  out. 

Block  1.    This  will  be  the  address  of  the  functional  proponent  of  the 
system. 

Block  2.    The  address  of  your  DPA. 

Block  3.    This  number  has  the  same  format  as  the  originator  number  in  the 
incident  report. 

Block  4.    Your  name. 

Block  5.    You  can  only  check  routine.    The  other  three  blocks  are  for  the 
functional  proponent  and  CSC. 

Block  6.    The  AMIS  name  and,  if  applicable,  the  program  name. 

Block  7.    If  this  SCR  is  the  result  of  an  incident,  then  complete  this 
block.    Otherwise  leave  blank. 

Block  8.  Self-evident. 

Block  9.  If  the  SCR  involves  system  documentation,  check  the  appropriate 
block. 

Block  10.  Attach  any  documents  that  may  help  to  explain  the  suggestion  and 

check  the  appropriate  block. 
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Block  11.    Enter  the  problem  as  It  currently  exists  in  part  A.    In  part  B 
describe  the  solution  you  are  suggesting  in  sufficient  detail  so  tnat  it 
can  be  clearly  understood. 

Block  12.  Usually  you  will  have  to  furnish  a  copy  of  the  SCR  to  CSC  and  to 
your  major  command  MISO. 

Block  13.    Your  name,  job  and  signature. 
Block  14.    Leave  blank. 
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1,TO: 

HQDA  (DACA-CSS-F) 
Pentagon 

W;.5^hin5ton.    DC  20310 

2,  FROM: 

MISO 

Fort  Harrison,  IN  46216 

3.  ORIGINATOR  NO: 

F01-R111-016 

4,  .^OINT  OF  CONTACT: 

SP5  Johnson 

5.  CATEGORY  (CHECK  ONE): 
□  emergency  ROUTINE 

□urgent  □priority 

6.  Sl/BSYSTEM  VTAAn.S 
PROGRAM  ID  .  rUOMH\ 

7.  INCIDENT  ENCOUNTERED 
STATION 

VERSION  NO 

DATE  TIME 

Operator  MSG  in  Program  F05ANV 


9,  DOCUMENTATION  IDENTIFICATION 


A.  DPI  USER  MANUALS  □ 

B.  FUNCTIONAL  USER  MANUALS  □ 


C.  EXECUTIVE  SOFTWARE  Q 

D.  FUNCTIONAL  SOFTWARE  □ 


10.  ATTACHMENTS 


A.  MAPS  Q 

B.  CORE  DUMPS  □ 

C.  IMPACT  STATEMENT  Q 


D.  FILE  PRINTOUTS  Q 

E.  CONSOLE  SHEETS  (X] 

F.  DFSR  □ 


G.  OUTPUT  USTS  Q 

H.  JOB  STREAM  SEC.  □ 

I.  OTHER  □ 


11.  NARRATIVE: 

A.  PROBLEM  DESCRIPTION:  Program  P05ANV  prints  5  lines  of  operator  messages.  This 

takes  excessive  console  and  operator  time. 

B.  RECOMMENDED  SOLUTION/ACTION  TAKEN: 

Oeltite  the  unnecessary  words  and  abbreviate  the  remainder  so  that  only 
1  or  2  lines  are  printed. 


12.  COPY  FURNISHED: 

tlQ  TEIADOC  MISO 
USACSC;  CSCS-QAC-M 

DATE: 


13.     PREPARED  BY: 

SP5  Daniel  Johnson 
Programmer /Analyst 

SGNR:  


DATE: 


14.  PROPONENT  AGENT  REVIEW: 
A.    TYPE  OF  CHANGE 


Q  FUNCTIONAL 
□  TECHNICAL 


b.  class  of  change 

□  regulatory 

□  nON'REGULATORY 


C.  EXTENT  OF  CHANGE 


□  MAJOR 

□  minor 


D.  REFERRED  TO  ARA  FOR  ANALYSIS  <DATE): 

E.  DISPOSITION: 

□  APPROVED.  REQUESTED  IMPLEMENTATION; 

□  disapproved 

□attached 


F.  FUNCTIONAL  GUIDANCE 
□  TO  BE  PROVIDED  BY 


□  NOT  REQUIRED 


SIGNED: 


DATE: 


'EKIO  4157-R 


6^4  IA-Ol-04-26 


(oOl 


WHAT  NOW? 

We  hope  that  you  now  have  an  understanding  of  your  relationship  in  a  DPA  to 
the  Computer  Systems  Command.    Incident  and  recommended  change  reporting 
will  be  a  fact  of  Army  life  to  you. 
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GLOSSARY 

1.  Army  Management  Information  System  (AMIS).    This  term  refers  to  any 
software  system  used  in  the  Army.    When  used  in  this  t&xt,  however,  the 
term  refers  to  standardized  software  that  is  designed,  tested  and  pro- 
grammed at  Computer  Systems  Command  'and  run  at  many  DPA.    Sometimes  this 
type  of  AMIS  is  called  SAMIS  (Standard  AMIS)  or  Class  A  AMIS. 

2.  Assigned  Responsible  Agency  (ARA).    The  agency  who  designs,  programs 
and  tests  AMIS.    CSC  is  normally  the  ARA  for  Class  A  AMIS. 

3.  Automatic  Digital  Network  (AUTODIN).    A  communications  link  among  most 
Department  of  Defense  activities  used  for  transmitting  data  from  post  to 
post.    Data  is  transmitted  electronically  (similar  to  a  phone  call)  and 

is  received  either  in  punched  cards  or  magnetic  tape. 

4.  Computer  Systems  Command  (CSC  or  USACSC).    This  is  the  Army's  software 
design  and  planning  agency.    It  develops,  programs  and  tests  centralized 
Class  A  AMIS  and  plans  for  the  future  direction  of  Army  software. 

5.  Customer  Assistance  Office  (CAO).    This  is  the  central  contact  point 
that  CSC  has  established  for  reporting  incidents.    It  is  generally  manned 
24  hours  a  day.    The  CAO  will  take  all  the  information  on  the  incident 
report  and  forward  it  to  the  responsible  programmer  for  resolution. 

6.  Data  Processing  Activity  (DPA).    Any  Army  organization  which  operates 
data  processing  equipment.    This  can  range  from  a  unit  with  just  data  entry 
equipment  to  a  unit  with  several  large  scale  computer  systems. 

7.  Emergency /Urgent  Change  Package  (EUCP).    Changes  to  standard  AMIS  sent 
by  CSC  to  resolve  operational  difficulties.    This  is  the  way  CSC  dis- 
tributes changes  made  as  a  result  of  incident  reports. 

8.  Functional  Proponent.    The  organization  which  is  responsible  for  the 
functions  of  an  AMIS.    For  example  the  Deputy  Chief  of  Staff  for  Personnel 
is  the  functional  proponent  for  SIDPERS.    Normally  HQDA  staff  offices  are 
the  functional  proponents  for  CSC  systems. 

9.  Functional  User.    The  activity  which  uses  the  output  from  an  AMIS; 
usually  non-ADP  personnel  who  are  customers  of  the  DPA. 

10.  Incident  Report  (IR).    Reporting  a  system  operational  problem,  that 
IS,  where  the  system  does  not  work  as  it  should,  to  CSC  via  telephone. 
This  is  also  the  written  record  (USACSC  form  53)  made  in  support  of  the 
phone  call. 
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11.  System  Change  Package  (SCP).    A  regularly  scheduled  change  to  a 
standard  AMIS  developed  by  the  ARA  and  sent  to  all  DPA  who  run  the  affected 
system.    An  SCP  will  normally  include  changes  made  as  the  result  of  SCR's. 

12.  System  Change  Request  (SCR).    A  request  to  either  the  PA  or  ARA  of  a 
standard  system  to  make  a  change  in  the  system.    If  the  change  is  for  ADP 
efficiency,  it  is  called  a  technical  SCR;  if  it  is  to  change  data  on 
initial  input  or  output  it  is  called  a  functional  SCR. 
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HARDWARE/SOFTWARE  SYSTEMS  EFFICIENCY 
SCENARIO 

1.  SITUATION: 

a.  As  previously  stated,  you  have  been  assigned  to  this  organization 
as  the  Systems  Software  Analyst,  responsible  for  the  operating  system  and 
associated  software  functions. 


New 

equipment  configuration. 

(1) 

IBM  360  Model  30  -  64K 

(2) 

1050  Console  Keyboard 

1 

ea 

(3) 

2314  Disk  w/9  drives 

1 

ea 

(4) 

2400  Tape  Drive  (9  track) 

4 

ea 

(5) 

2804  Control  Unit 

1 

ea 

(6) 

1403  Printer 

1 

ea 

(7) 

2540  Card  Read/Punch  Unit 

1 

ea 

(8) 

2821  Control  Unit 

1 

ea 

(9) 

Selector  Channel 

2 

ea 

(10) 

Multiplexer  Channel 

1 

ea 

c.  Special  Features 

(1)  Floating  Point 

(2)  Decimal 

(3)  Timer 

d.  To  support 

( 1 )  Mul  tip  r  o  gramming 

(2)  COBOL 

(3)  FORTRAN 

(4)  PL/I  (48  character  set) 

ErIc  /698 
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e.    Manufacture  Supplied  Packages 


(1)  Operating  System  Routines  (Supervisor,  Linkage  Editor,  etc) 

(2)  Subroutines  for  FORTRAN  and- PL/I 

(3)  Utility  Programs 

f.     User  systems  now  in  effect  are  outlined  in  the  separate  systems 
charts,  incl  1  and  2.    Memory  requirements  and  run  times  for  each  process 
step  are  indicated  on  the  chart.     Additional  programs  to  be  supported  are 
listed  in  incl  3  and  are  to  be  assumed  to  be  stand-alone. 
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2.  REQUIREMENTS 

a.    Design  and  generate,  on  paper,  an  operating  system  specifying 
selected  options,  core  requirements,  and  total  size  of  your  supervisr.r. 
Calculate  the  "Send"Address. 

OPTIONS /SELECTIONS  MAIN  STORAGE  REQUIREMENTS 

SUPV 

SYSTEM=    

MPS=     

TP=     

MICR=     

ASCII=     • 

AP=     

EU=     

ERRLOG=     

MCRR=     

CONFG 

MODEL=     

SP=    " 

DEC=     

FP=     

TLMDSR^    ^  

PORT=     

STDJC 

DECK=     

LIST=     

LISTX= 
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Options /Selections 

SYM=   

XBEF=   

ERRS-   

CHARSET= 

LOG=   

DIIMP=   

LINES-   

DATE-   

SPARM-   

FOPT   

OO   

IT=   

PC"   

TEB»   

TEBV-   

EVA="   

SKSEP=   

CE=   

JA=   

JALIOCS=   

PTO=   

IDRA=   

OLTEP=   

RETAIN=   

PCIL=   

CBF=   

o 
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Main  Stjsrage  Requi r emenlis 


Options /Selections 


CCHAIN= 
TRKHLD= 
AB= 

WAITM= 

DASDFP= 

SYSFIL= 

PIOCS 

SELCH= 

BMPX= 

CHANSW= 

TAPE= 

MRSLCH- 


F1PGR= 

F2PGR= 

JIB=« 

CHANQ= 

IODEV= 


TOTAL 


Send  Address:  SEND 


Main  Storage  Requirements 


5  702 


b.     List  available  channels  and  distribution  of  I/O  devices: 
Type  Channel  Channel  Number  Assigned  Devices 


c.     Specify  size  of  required  partitions: 
ALLOC      Fl=   K,F2=  K 
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d.     Prepare  a  schedule  of  jobs  for  a  Tuesday  in  which  the  payroll 
checks  are  to  be  run.     Shift  starts  at  0700  hrs  and  we  run  two  shifts  of 
eight  hours  each.     Indicate  Program  Number,  Time  to  be  Run  and  Partition. 
Schedule  should  be  such  that  the  first  job  on  the  schedule  is  the  first 
job  to  be  run,  etc. 

Program  Number  Time  to  be  Run  Partition 


7 


704 


e.  List  contents  of  each  library  in  specific  terms,  by  routine  name  or 
program  number. 

(1)     Core  Image  Library 


(2)     Relocatable  Library 
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(3)     Source  Statement  Library 


£.    Does  your  system  require  "Spooling"?    Yes   '  No        '   Why? 
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CONTINGENCY  PLANNING 
FREQ:     As  Required 


Unit  Sel 


Prog  #C01 

Select 

Unit 

IQK  -  25  min 


Type  Unit 
Audit  List 


Selected 

Type 

Unit 


Master 
Type  Unit 
Equipment 
File 


Prog  //C02 

Select 

Equip 

19K  ^  4^  m-fn 


Type  Unit 
Equip  Audit 
List 


Selected 
Type  Unit 
Equipment 
File 


Equipment 
File 


Modified 
Selected 
Type  Unit 
Equip  File 


Incl  1  -  pg  1 


to 


o 
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Prog  //C03 
Equip 

Modification 
15K  -  10  min 


Modified 
Selected 
Type  Unit 


'Movement  / 

Prog  //C04 

Char  1 

Config/ 
Feasibility 
35K  -  45  min 

Report  5 


Report  4 


Report  3 


Report  2 


^Planners  ^ 
Incl  1  -  pg  2 


DAILY 


CIVILIAN  PAYROLL 


BI-WEEKLY 


Prog 

//P{31 

Edit 

15K  - 

-  20  min 

Errors 


e 


Master 
File 


Prog  //P02 
Update/Maint 
15K  -  20  min 


Time  cards 


r 


Prog  #P03 
Edit 
10K  -  20  min 


1 


« — ^ 

Prog 

//P04 

Payroll 

35K  - 

65  min 

iJorrections 
^(see 


^note  2) 
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Errors 


Note  1:     The  errors  are  to  be  corrected  and  the  corrections  inputed  into  the 

next  day*s  cycle,  except  those  errors  of  the  last  cycle  for  the  period 
are  to  be  corrected  immediately  and  the  edit  rerun.  All  errors  must  b^ 
corrected  oefore  the  Payroll  can  be  run. 

Note  2:     The  errors  must  be  corrected  immediately  and  the  edit  rerun  until  no 
errors  exist.     Only  then  will  the  payroll  checks  be  run, 

Incl  2 
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ADDITIONAL  PROGRAMS 

H  PROG    SIZEK     FREQ     TIME  REQD    RUNTIME        INPUT  FILES  OUTPUT  FILES 

3   NR  TAPE    DISK    READER      TAPE    DISK    PUNCH  PRINTER 


H 


A07  35 


A^2       10      Daily     OBOO  hrs  3  1  1  X  1  1 

m       33      Daily     2400  hrs  25  2  3  X          2  2  2 

j 

AJ4       20      Daily     2400  hrs  57  1  2  2  1 

Ads       15      Daily     1200  hrs  15  3  X  3 

m       25      Daily     2400  hrs  30  2  XI  12 


A10  15  Monday 

All  21  Wed 

A12  17  Thur 
A97  Daily 
A9B  Daily 
A99  Daily 
Spooling  18      If  determined  to  be  required 


1000  hrs 

10 

2 

1 

X 

1 

OBOO  hrs 

3 

1 

1 

X 

1 

2400  hrs 

25 

2 

3 

X 

2  2 

1 
1 

2400  hrs 

57 

1 

I 

1200  hrs 

15 

3 

X 

2400  hrs 

30 

2 

X 

1 

2400  hrs 

240 

1 

4 

X 

k 

2400  hrs 

65 

2 

4 

2 

2400  hrs 

30 

2 

X 

1  1 

2400  hrs 

27 

1 

3 

2 

2400  hrs 

32 

2 

4 

X 

2 

2400  hrs 

19 

2 

1 

120 

Compile  and  Test  Tiie 

60 

Software  Maintenance/Software  Analyst 

60 

Syetems  Maintenance/Manufacturee  Rep 

1 


2  3 
3 
1 

1  2 
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